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Una vera esperienza di vita per i ragazzi/e oltre i 10 anni 
Abbinare lo studio della Lingua Inglese, al contatto di una natura incontaminata 
Una vacanza*studio unica ed indimenticabile, in uno scenario che non ha confronti. 


Questo tipo di vacanza è 
indirizzato sia ai principianti, sia 
a coloro che hanno già 
maturato una conoscenza della 
Lingua Inglese, ma il 
denominatore comune è il reale 
contatto con la natura. 

* Un viaggio dì 19 giorni 
attraverso la Provincia 
dell Ontailo a bordo di un 
‘Super Van ' da 15 posti, con 
aria condizionata e stereo 
System, con l’assistenza di 
personale qualificato. 

Ogni 10 partecipanti ci sono 4 
persone di assistenza. 

Le attività standard includono: 

• partecipazione alla vita di 
campeggio, canoa, tracking, 
pesca, white- water rafting, 
ginnastica, nuoto e studio della 
Lingua Inglese. 

Quest ultimo aspetto sarà curato 
da insegnanti specializzati dello 
SHENKER INSTITUTE OF 
ENGLISH, con due ore dì 
lezione al giorno, seguendo il 
METODO SANDWICH di 
GEORGE SHENKER, 




• Viaggio Andata/Ritorno 
MILANO/TORONTO in classe 
turistica. 

• Tre pasti al giorno dalla 1 a 
colazione del secondo giorno, al 
lunch del 17 giorno/ 

• Full-Day Immersion di Lingua 
Inglese con personale 
SHENKER piu 2 ore al giorno di 
corso intensivo, 

• Materiale audio-didattico per il 
Corso comprendente: 

• Walkmann 
' Cassette 

• Libri di testo e work book 

• Assicurazione completa 
EURQPE-ASSISTANCE. 

• Pernottamenti tn hotel di 
categoria superiore e in 
Campeggi nei "NATIONAL 
PARKS \ 

• Tutte le tasse d iscrizione, 
attrezzatura da pesca 

• canna da pesca con mulinello 

• licenza di pesca 

I costi dì noleggio del Super 
Van e tutti i costi annessi: 

• benzina 

1 autostrade con pedaggio 


\\ programma si divide in 4 diversi turni a partire dall'ultima settimana di giugno 

Prenotazioni e informazioni pressoi 

SHENKER INSTITUTE OF ENGLISH - Corso Monforte, 36 (MI) - Tel, 02/700332/700363/700929 

ore ufficio - Sig.ra Sawchik - Olivieri (ore serali) TeL 039/513211 

UVET - Viale Ferdinando di Savoia, 4 (MI) - Tel. 02/675061 (30 linee) O* 

ore ufficio - Sig. Biagi .jiaeve 

SYSTEMS - Viale Famagosta, 75 (Mi) - Tel. 02/8467348/9 


ore ufficio • Sig. Tidone 
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Amarcord 


(Quando una persona viene a casa 
mia perla prima volta non può fare a 
menò di esprimere stupore non ap- 
pena la introduco in quella che io 
chiamo "Stanza delle meraviglie": 

Su due tavoli trovano posto, infatti, 
diversi calcolatori, ognuno dei quali 
accessoriato in maniera pressoché 
completa: senza parlare delle libre- 
rie, piene zeppe di libri e riviste di in- 
formatica e di elettronica, o dei con- 
tenitori per dischi che mi auguro di 
poter sostituire al più presto con 


Compact Disk. 

inevitabile, quindi, la domanda 
del l'ospite: “Come ha avuto inizio 
Lutto questo?": altrettanto inevitabile 
1 invito a sedersi in poltrona per sor- 
seggiare un bicchiere di liquore men- 
tre racconto la “stona" di ogni calco- 
latore c periferica presente nella 
stanza. 

Non saprò mai se la mancanza di 
interruzione del racconto è dovuta a 
reale interesse oppure alla raffinata 


educazione dei miei ospiti: certo è 
che ricordo con piacere l’acquisto dei 
primi libri di informatica, le lezioni 
sui calcolatori che seguivo alta facol- 
tà di Ingegneria al punto da trascura- 
re gli esami “fondamentali 1 ', 

E non posso fare a meno di ricorda- 
re quella persona sconosciuta che, 
senza volerlo, mi apri la strada che ti- 
ra percorro con tanta .soddisfazione. 
Era il maggio de! 1980 e. dopo aver vi- 
sitato l’EDP USA. alla fiera dì Mila- 
no, aspettavo l'arrivo della metropo- 
litana e T neH’attesaJeggevo i depliant 
pubblicitari raccolti in fiera. Atausa 
delle scarse finanze allora disponibi- 
li, ero infatti costretto a limitare le 
mìe pretese acquistando un piccolo 
calcolatore francese in scatola di 
montaggio che. tuttavia, costava qua- 
si un milione. 

Mentre coni molavo tabelle, presta- 
zioni, prezzi, possibilità di espansio- 
ne ed altro, mi si avvicinò un signore 
che aveva visitato la fiera con lo sco- 
po di rinlracciare computer idonei 
alla trasmissione dati via radio. Era 
infatti un radioamatore interessato 
ad ampliare il campo delle sue 
conoscenze. 

Parlando del più e del meno, e ve- 
nuto a sapere che intendevo spende- 
re non più di un milione di lire, mi 
suggerì di tornare in Fiera il giorno 
dopo perchè la Harden (che allora e- 
ra firn portatrice esclusiva dei pro- 
dotti Corri modorei aveva diminuito 
brutalmente il prezzo di vendita del 
modello PET 2001 che avevo, mio 
malgrado, escluso dalle scelte possi- 
bili a causa del prezzo elevato (prima 
del maggio '80 costava infatti 1600000 
lire). 

E tutto il resto, vale a dire la cono- 
scenza del dottor Di Pisa, la collabo- 
razione alta rivista Micro & Personal 
Computer, la realizzazione di que- 
sto, favoloso "Commodore Compu- 
ter Club" è stato possibile grazie al 
glorioso PET 2001, passato, in segui- 
to, a miglior vita. 

Ora mi capila spesso di entrare nel- 
le aule in cui si insegna informatica: i 
ragazzi, tutti di età intorno ai sedici 
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anni, mi fanno tornare alla mente le 
mie prime digitazioni, i primi (e tan- 
ti!) errori dì battitura, la rabbia nel 
non vedere girare i programmi coinè 
avrei voluto, l'mcroJJ a bile certezza di 
aver acquistato un computer difet- 
toso. 

Non posso fare a meno di sorridere 
nel vedere ta tangibile delusione di 
questi ragazzi quando, tanto per dir- 
ne una, non riescono a rintracciare 
Tenore dovuto alla mancanza di un 
FOR oppure ad un RETURN di 
troppo, 

E un po' dì malinconìa mi assale ri- 
cordando quella sera in cui, digitan- 
do e dimenticando lo scorrer delle o- 
re, notai all'Improvviso un certo 
chiarore nella stanza: era Falba che, 
sopraggiunta senza che me ne accor- 
gessi, sembrava salutare, finalmente, 
le mie "scoperte" sulla corretta ge- 
stione dei file. 


Mi capita spesso, ora, di parlare 
con persone super esperte, che sanno 
tutto sul Commodore 64 o sulle pro- 
cedure di invio dati o su tutti i calco- 
latori, indistintamente. Non posso 
fare a meno di ammirarle e di invi- 
diarne la notevole preparazione, so- 
prattutto se tengo conto della loro e- 
tà. troppo spesso nettamente inferio- 
re alla mìa. 

E ricordo, tu navi a, le telefonate e le 
lettere di compii memi di quei lettori 
che. risolti i loro problemi grazie alla 
lettura dei mici articoli, vogliono, 
semplicemente, ringraziarmi. 

Mi capita spesso, però, di vedere 
giovani che perdono le loro giornate 
nei bar. davanti ai videogame, e ades- 
so, grazie airbome computer, anche 
a casa propria, nell'illusione di sen- 
tirsi “grandi" nei confronti dei com- 
pagni che totalizzano punteggi mi- 
nori. 


Ecco perchè, in questo numero, 
non posso fare a meno di pensare ai 
principianti- a coloro, soprattutto, 
che in occasione dello scorso Natale 
hanno ricevuto il loro primo compu- 
ter. Tra di loro ce chi si limiterà a gio- 
care, perdendo la straordinaria occa- 
sione che gli viene offerta; ma tra i 
principiami vt sono certamente an- 
che coloro che intendono andare ol- 
tre. sta a livello hobbistico che 
professionale. 

Chi cì legge, quindi, non sia severo 
nd giudicare superficialmente i sem- 
plici listati pubblicati che, comun- 
que, si prestano benìssimo per mi- 
glioramenti di ogni tipy. 

E se poi gli "esperti 1 ' che ci seguono 
ripenseranno ai tempi in cui anche 
loro erano principianti, vale a dire ai 
veri tempi “duri” sorrideranno di 
certa nel rievocare le enormi difficol- 
tà rivelatesi poi, fortunatamente, 
semplici bolle di sapone. 

Alessandro de Simoiif 




IL VERO 

LINGUAGGIO MACCHINA 
DEL COMMODORE 04 


'TTinò v PER FORZA! 

"fin? ) NON PARLI LA SUA LINGUA! 

COMPftBNDJf^y 


finalmente un libro di 
circa 400 pagine di- 
verso dagli altri stupra 
usciti, un libro che la 
capire come funziona 
veramente il tuo Com- 
modore 64 o 12$. 

Butta via I "assembler, con tutto II suo codazzo di numeri esattoci mah e si- 
gle pseudo-mnemoniche! Impara anche tu 

IL VERO LINGUAGGIO MACCHINA DEI COMMODORE 64 

quello espresso da soli numeri, ciascuno dei quali ha un significato beo pre- 
ciso. La lingua del Commodore 64 è fermala da 15 1 numeri, di cui solo una 
ventina Frequentemente usati e questo libro ti insegna II significato e l uso di 
ciascuno di essi con centinaia di esempi che potrai immediatamente prova- 
re diretlamenie sul tuo Commodore senza alcuna particolare conoscenza o 
dispositivo. 

Ti accorgerai quanto s^a facile programmare direttamente in linguaggio 
macchina senza Far ricorso ad ausili strani che finiscono solo per creare 
una gran conlusione II libro contiene anche centinaia di routine per le più 
varie applicazioni: animazione, grafica etc. e conitene numerose tabelle di 
estrema utilità. 


Per ricevere il libro inviare un vaglia postale, un vaglia telegrafico o un asse- 
gno bancario di Lire 30 OOO comprensive di IVA e spese postai r, intestato a 

Società Editrice * Linguaggio Macchina * s,a,s. c/o Studi Professionali 
Centralizzati, Corso Garibaldi, 95 - 82100 Banavanto. 




Un'istruzione poco usa tu 

□ Vorrei sapere a che serve List razione 
WAIT 

(Andrea Commi. Bisonti) 

* Wait, in inglese, significa “Attendi," ed è 
appunto il comando da impartire al com- 
puter in determinate circostanze, 

Un esemipo del comando Watt, che ha 
tre parametri, di cui {"ultimo opzionale, 
può essere il segue nic: 

WAIT 197.1 

in tal modo si arresta Icvecuzionc del 
programma Basic finche la locazione 197 
non assume il valore L 
Il byte 197 non è stato preso a casaccio: 
questo contiene, in ogni istante, il codice 
del tasto eventualmente premuto. Se nes- 
sun uisto é premuto, il valore della loca- 
zione 197 è uguale a (>4. Ti puoi render 
conto di quanto asserito digitando il mini 
programma che segue: 

100 PRINT PEEK<197); GOTO 100 

Facendolo girare noterai la visualizza- 
zione continua del numero t>4 che cam- 
bia, però, a seconda dei tasti eventual- 
mente premuti. 

In particolare verrà visualizzato il valo- 
re unitario se terrai premuto il tasto 
Return, 

Sembrerebbe che l'istruzione Wait sia 
in grado di sostituire cicli di attesa struttu- 
rati ricorrendo flllarcinato Gei: 

100 GET AS: 1F AS=^ TUEN HXJ 

Purtroppo la .'sostituzione di un ciclo di 
Gei non £ cosi semplice come può sem- 
brare a prima vista e vedremo ora il per- 
chè, Prima, penò, è indispensabile chiari- 
re che cosa sì intende per OR Esclusivo. 

Con tale termine si intende l operazio- 
tie logica, effettuata Ira due bit che forni- 
sce come risultato zero, se i due bit sono e- 
gUali Ira loro {cioè e ni r ambi ’ I opppure 
entrambi “tri mentre il risultato vale uno 
se i due bit sono diversi tra loro teioé uno 
vale zero e Tallio vale uno). 

Riprendiamo ora il discorso ricordan- 
do che l'istruzione Weùi ha Ere parametri 
che possiamo schematizzare nel modo 
seguente: 

WAIT IN,DA1,DA2 


lì parametro "IN" rappresenta, come 
già detto, l’indirizzo del byte che voglia- 
mo esaminare. Quando il computer in- 
contra l'istruzione corredata dai ire para- 
metri, effettua un'operazione di OR E- 
sclusivo tra tl dato DA2 ed il contenuto 
della locazione IN: subito dopo, cfteiiua 
un ANI) tra il risultato ottenuto e il dato 
PAI. Se il risultato di quest ultima opera- 
zione c nullo* allora ripete nuovamente 
Finterò ciclo sospendendo, di fatto, l'ese- 
cuzione del programma; se. invece, il ri- 
sultato è diverso da zero (cioè, bada bene, 
assume un QUALSIASI valore diverso 
da zero) il programma Basic continua 
con ['istruzione successiva, 

Se fui girare tl seguente programmino 

IUG REM ESEMPIO DI WATT 
110 : 

Ulì REM TASTO RETURN = 1 
130 REM TASTO àl F=2Ì 
140 REM TASTO TT=17 
150 REM TASTO "D"~ 18 
léO EGRI - iTQHXhNEXT 
170 PRINT’FREMI IL TASTO" 

180 PRJNT’PER IL TEST" 

190 WAIT 197,1*64 
200 PRINT PEEK{ 197) 
ti accorgerai che è piuttosto difficile in- 
dividuare il valore da assegnare ai due 
parametri per fare in modo che il pro- 
grammi! continui soltanto quando si pre- 
me il tasto Return (o qualsiasi altro tasto 
che desideri), E ciò è dovuto proprio per- 
chè la prosecuzione del programma è de- 
cisa sulta moda! fatto che il risultato sia.o 
meno, eguale a zero. 

Un altro motivo per cui non può sosti- 
tuire del tulio un ciclo Gei è dovuto al fat- 
to che non è possibile individuare quale 
[asto è stato premuto ed effettuare, di con- 
seguenza, un evemuale salto 'ragionato" 
ad altri segmenti di programma. 

il comando Wait usalo con due soli pa- 
rametri, si rivela utile quasi esclusiva- 
mente per fermare un programma finché 
non si preme uri tasto qualunque. 


Un buon carattere 

O Vorrei sapere come posso visualiz- 
zare HIJ colonne con il mio C/64 t conte 
stampare in minuscolo su stampante e 
come raddoppiare la grandezza dei 
caratteri* 

(Giuseppe Buccoli tri. S Pancrazio) 


* Vi scino in giro alcune routine, di cui ab- 
biamo già parlalo, che consentono di vi- 
sualizzare SD colonne invece delle solite 
41), Ricordiamo, però, che non possono 
essere usale unitamente a pmgrammi 
“professionali" (come Word Processor, 
Data Base) o, comunque, protetti, dui mo- 
mento che la murine sicssa viene in gene- 
re automatica mente esclusa non appena 
se caricano i programmi in oggetto, inol- 
ire la visualizzazione delle HI) colonne è 
accettabile solo su monitor in bianco e 
nero; su TV a colori, ad esempio, è un vero 
e proprio disastro e stanca subito la 
vista* 

Per stampare su carta caratteri minu- 
scoli e maiuscoli (anziché maiuscoli c se* 
mi grafici) è necessario assegnare il terzo 
parametro al comando di apertura del fi- 
le, Esempio: 

OPEN 44,7: CMD4: LIST 

In questo modo potrai stampare un li- 
stato Basic nel modo richiesto che pren- 
de. più propriamente* il nome di Busi- 
ness Mode". 

Per stampare caratteri ingranditi, ti ri- 
cordiamo che è possibile soltanto rad- 
doppiarne la larghezza (e non l'altezza), 
facendo precedere il messaggio da stam- 
pare dal carattere ' speciale” CHR$(I4), 
Esciti pio: 

OPEN 4,4: PRINT CKRSfWESEM- 

picr 

Alcune stampanti, come la STAR NL/ Ih, 
consentono anche il raddoppio in altezza 
dei caratteri. 

Un personaggio in cerea di 
editore 

□ Vorrei sapere come mettere in vendi- 
ta del software da me scritto, E' neces- 
saria qualche autorizzazione per usare 
nomi di personaggi tratti da celebri 
film? 

(Antonio Fiorita. Torrem aggi ore) 

■ Per porre in vendila qualsiasi cosa è ne- 
cessario essere iscritti alla Camera di 
Commercio, avere partila IVA c sbrigare 
altre pratiche burocratiche clic ti può 
spiegare in dettaglio un commercialista 
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di tua fiducia al quale li consigliatilo tli ri- 
volgerli prima di fare qualunque passo. 

Per ricevere compensi da riviste dei sei- 
lore, invece, la procedura è molto più 
semplice dal momento che li viene rego- 
larmente rilasciata una ricevuta ei destan- 
te il compenso ricevuto per una prestazio- 
ne saltuaria. 

La seconda parte della domanda c di 
notevole interesse e mette in luce un feno- 
meno Legalo al consumismo che prende il 
nome di Merchandising. 

Tn pratica si tratta dì questo: non appe- 
na un film, un personaggio o„ comunque, 
un evento legato prevalentemente al 
mondo dello spettacolo, ha successo, su- 
bito si cerca di lar quattrini sfruttando la 
notorietà del momento. Le magliette, ì 
quaderni, i dischi, i profumi legali, ad e- 
sempio, a Rambo. a Snoopy a ET. e ad al- 
tri personaggi, devono pagare diritti di 
“immagine" (spesso molto Sedali) agli au- 
tori o a coloro che, comunque, detengono 
i ‘'diritti" d'immagine. La IBM ha pagato 
una certa cifra per utilizzare Firnm agi no 
di CharloLcOmc pure la Mondadori, per i 
suoi simpatici cartoncini di auguri, paga 
una quota per riprodurre t personaggi di 
Schuù (Snoopy, Charlic Broun ed altri). 

Anche le software house non sono da 
meno è pagano i diritti per poter assegna- 
re nomi di richiamo ai vidcpgiochì clic 
immettono sul mercato (Aiicns, Rambo, 
Dynasty eccetera ). 


Fatevi i dischi vostri 

□ E’ possibile leggere con il 1541 i di- 
schetti formattati con altri drive? 

t Paolo Costabel Cenava/ 

* Un disco vergine è. in pratica, simile ad 
un immenso foglio di carta bianca sul 
quale si può scrivere in uninilmità di 
modi. 

Poiché il computer ha bisogno del mini- 
si incordine per scrivere (e leggere) dati, si 
procede al Top erezione di "fo mia ira rio- 
ne' 1 che. in pratica, provvede a scrivere 
tanti quadretti ben ordinati secondo un 
allineamento che c tipico di ogni com- 
puter, 

Ogni disco, dopo la formattazione, as- 
somiglia ad un quaderno; come tu sai pe- 
rò, esistono molli tipi di quaderni che, pur 
essendo identici alfestemo, non So sono 
all'Interno a causa del diverso formato (e 
quantità) dei fogli, a quadretti, a righe, a 
righe largc, medie, strette, commerciali 
eccetera. 

Mentre è per noi possibile scrìvere eser- 
cizi di matematica anche su un quaderno 
a righe (benché l’ideale sia uno a quadret- 
ti) un computer non è in grado di scrivere 


(o di leggere) da un quaderno ai quale 
non è,,, abitualo. 

in conclusione ogni computer ha il suo 
formato. Alcuni, però, vantano la cosid- 
detta compatibilità per cui sono in grado 
di accettare dischi provenienti da altri tipi 
di computer. 

Nel caso dei prodotti Commodore non 
esistono in commercio drive di altri cal- 
colatori in grado di esser letti dal tuo 1541. 
Anche se riuscissi nell'intento, però, è 
probabile che i file leni non li siano di al- 
cuna utilità a causa della notevole diver- 
sità dei codici esisterne tra i vari computer 
sul mercato. 

Caccia alFerrure 

□ Digitando listati da altri libri (o rivi- 
ste del settore) sorgono spesso errori o 
malfunzionamenti: di difficile interpre- 
tazione. Quale può esser la causa? 

(Salvatore Camma a mi e a Irri lettori) 

* Purtroppo non riamo in grado di valu- 
tare la qualità del software delta cosiddet- 
ta “concorrenza" e, benché sia significati- 
vo il fatto che vi rivolgiate a noi anziché a- 
gli autori del software in questione, ri per- 
mettiamo tuttavia di spezzare una lancia 
in favore dei listati pubblicati su periodi- 
ci... cartacei (come il nostro). 

L'esperienza ormai ha dimostrato che i 
listali “ rigorosamente controllati ", come 
affermano i lettori che li hanno trascritti, 
non sono per nulla privi di errori Di digi- 
tazione. Controllate, quindi, con il massi- 
mo rigore le lìnee Basic (UNA PER LI- 
NA) àttènedo vi alle raccomandazioni 
che, quasi sempre, accompagnano gli ar- 
ticoli a corredo dei programmi. 

Effetti speciali 

□ Provate ad effettuare, in sequenza, 
le seguenti operazioni: I- spegnete ed 
accendete il C/64; 2- digitate SYS 
63490; 3- premete dieci volte il tasto 
Crsr Dwn; 4- digitate qualche c&rattc- 
re a caso; 5- tenete premuto il tasto 
Crsr l>wn ed osservate l'effetto che ne 
consegue. Perché accade? 

(Davide Cri vetta tu, Medigtia) 

* Mah! probabilmente perchè viene alte- 
rato il puntatore alla posizione del curso- 
re su Ho schermo, Ma toglimi una curiosi- 
la: come diavolo ti sei accorto dello strano 
fenomeno? 

Numeri e parole 

□ Come si possono leggere DATA 
contenenti valori numerici e parole? 

(Cmtian Di Paolo, Rama) 


* Digita attentamente il seguente pro- 
gram ina: 

UH) FORI = I TO 9: READ A% 

105 lPVAL(ÀS}-0 THENPRINTTMJE- 
STA E’ UNA PAROLA "AS:GOTOI 30 
110 FRIN Ì” QUESTO E 1 UN NUME- 
RO “AS: GOTO È 30 

120 DATA P 1 P PO ,GÀTTO*23,-98 ,GE N - 

NAIO5X).-.9S,CRISTlAN,0 

130 NFXT 

Come puoi notare ITstruzione Read è in 
grado di leggere indifferentemente nume- 
ri o parole Se non puoi .stabilire, prima 
della lettura tramite Read, se il prossimo 
Da (a da leggere sarà un numero oppure 
un nome, è sufficiente avere l'accortezza 
di imporre la lettura dì una siringa, vale a 
dire “Read À3T e non "Read A" 

Non appena leggi Aj^puoi estreme' 
] 'evenni a le valore numerico con Vaì(A$jr. 
se questo è nullo, è quasi certamente un 
nonre. altrimenti è un valore numerico. 
Se tentassi di sostituire A$ con A (riga 
100), attenesti un “Syntax Errar in 120" 
dal momento ulte il computer riceve il co- 
mando di leggere un numero (A) c trova, 
al contrario, una stringa (Pippo) 

Se il valore di A$ è nullo, non è detto pe- 
rò che sia un nome: lo dimostra l'ultimo 
messaggio visualizzato facendo girare H 
programma di prima. Pei esser sicuri di 
distinguere esattamente una parola da un 
numero è necessario introdurre dei fil- 
tri" software in grado di accorgersi della 
differenza. Prova, infatti, ad inserire la se- 
guente riga-filtro: 

102 IF A$= T 0' THEN 110 

e vedrai che l'ultimo messaggio sEirà più 
coerente di quello visualizzato in pre- 
cedenza. 

La mappa della memoria 

E3 Vorrei proporvi di pubblicare una ta- 
bella con [Indicazione delle locazioni 
dii memoria del C/64 ed ìt loro uti- 
lizzo, 

inoltre vorrei sapere conte pulire le 
testine del drive senza Fuso delfappo- 
sito pulisci testine. 

(Lorenzo Róssi, Ritorni) 

* Ciò che tu chiedi è la cosiddetta mappa 
della memoria hi cui pubblica zio ne, com- 
mentata, richiederebbe un intero libro li- 
mitato, per di più. ai soli esperti, 

A che serve dire, infarti, che le locazioni 
122/123 rappresentano il puntatore del 
byte corrente nei testo Basic (come si IL 
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mila, appunto, a riferire la "Guida di ni ti- 
rime n lo per il C/64" ) se non si scrive un 
intero articolo corredato di programmi 
per illustrarne possibili osi? 

Ma. a pensarci bene, è proprio ciò che 
noi lacci amo ad 3 colo per articolo, nume- 
ro per numero di Commodore Computer 
Club! 

Invece di .spiegare i parametri di una 
particolare istruzione grafica io una 
"strana" Poke). p re le riamo pubblicare un 
programma che ne faccia uso, in modo 
che il lettore, se realmente interessato, 
può proseguire le ricerche per proprio 
conto. 

In quasi lutti gli articoli che pubblichia- 
mo e è sempre qualche riferimento a par- 
ticolari locazioni di memoria, o ad usi in- 
goi iti di comandi Basic, di ceno- molto piu 
utili di aride tabelle non finalizzate. 

Se. comunque, possiedi un C/128* puoi 
procurarli i numeri della rivista "Perso- 
nal Computer 1 fa partire dal N,6l che 
pubblica a puntale l imerà mappa della 
memoria del C/128. Non pensare, però, 
che si impari mollo avendo u disposizio- 
ne solo la mappa: l’unico sistema per rea- 
lizzare qualcosa di valido consiste (pur- 
troppo! nel lavorare tantissimo e speri- 
mentare tecniche non ■'ufficiali”. 

Per ciò che riguarda la seconda parte 
della domanda non capisco il motivo di 
tale desiderici di pulizia. Posseggo più ds 
un drive da molto tempo, li uso in media 
quattro ore al giorno e non mi sono inai 
sognato di aprirli per questioni di sporci - 
zia: se. a mia insaputa, all'intemo dei dri- 
ve ha preso posto una tribù di pipi stretti o 
di gatti selvatici, il loro ecosistema non 
pregiudica la funzionalità del drive. 

Scherzi a parte, se Imi l'accortezza di 
coprire con un panno le lessare del drive 
quando non lo usi, e se provvedi a custo- 
dire con cura i dischetti, non dovrebbero 
insorgere inconvenienti di sorta per il 
buon funzionamento della periferica. 

Il nuovo Drive 154 J-C e k> 
Speed-Dos * 

□ Che differenza Ce era il vecchio 
1541 (custodia marrone) ed il nuovo 
1541-C (custodia bianca)? 

(Numerosi lettori) 

* Da un punto di vista software, nessuna 
f almeno cosi assicura chi io usa da diversi 
mesi). Da un punto di vista I lardware. pe- 
rò, vi sono piccole ma sostanziali diffe- 
renze netta disposizione dei componenti 
sul circuito stampato cd è necessario te- 
nerne con lo nel caso si desideri apportare 
variazioni 

Lòia di queste è sicuramente lo Specd 


Dos. un accessorio ll/W che velocizza le 
operazioni di trasferimento dati, di cui 
abbiamo parlato tempo fa. 

Ne approfitto, anzi, per ricordare che la 
ditta Niwa di Sesto San Giovanni (tcl.b2- 
24.40.7 7.tì) è costretta ad allungare i tempi 
di consegua del comodo accessorio (dal 
prezzo di L. 70000 circa) perché i richie- 
denti dimenticano di precisare il tipo di 
drive in loro possesso: .siate chiari, quin- 
di, quando ordinate accessori perii vostro 
disk drive! 


Totocalcio illeggibile 

□ Sul N.36 di t CC alcune righe del li- 
stato “Archivio Totocalcio” risultano 
illeggibili (segue elenco). Potete ri pub- 
blicarle? 

{Raffaele Espusilo, Roma, ed altri lettori) 

• Siamo davvero morti fica lì per il l'atto 
che! a rubri ca I ot oca f c io se ni b ra e ssei p c- 
nalizzàta per un moti vo o per un altro! Gi 
risulta, fortunato mente, che solo ima mi- 
nima percentuale di copie del N. 36 siano 
stampale in modo incompleto. Evidente- 
mente alla nostra lipografia manca un 
controllo computerizzato in tempo rea- 
le,., 

ZQ £3 ET A$:IF THEN 50 

30 IT THEN LIST 650 r FRI 

NT TfìBC Ì0> “t UPD f\r LIST 560; 
PR3NT TAR ( 3 0 ) J " L UF I T " r 6N □ 

40 GOTO 20 

200 SET AS: ÌF A®- "E" THEN A-914 
4 ; PDKE 631 5,104: POKE 6316,3 
5:60T0 300 

210 IF THEN 230 

250 A-PEEJCCQ3lSJ+e56*FEEKC89Ì63 
: PRINT"C DOWN] COLONNE INSERÌ 
TE ; 11 ; C A-9144 >/l 3 : E-B0O 
260 IF PEEKCQ326>-1 THEN B-503 
270 PR INI " C LIGWN3 PUU 1 INSERIRNE: 
J, 0-CA^3144 5/13 

Compatibili fa C/64 C/128 

□ Mi hanno detto che per alcuni giochi 
per C764„ che non funzionano sul 
C/128 predisposto iti modo 64, è ne- 
cessario cambiare il contenuto di una 
locazione prima di dare il Rim. IC 
vero? 

(Daniele Alfonso. Alghero) 

* Ho senti io anch'io parlare di alcune 
{presunte) incompatibilità del C/128 in 
modo 64. Forse ht locazione alla quale Fai 
cenno è la N,| che viene au toni Epicamen- 
te modificata tenendo premuto il tasto 
C apii ILock. Posseggo un paio di program- 
mi di utilità, inibiti, che non vogliono sa- 
perli e d i fu n z io n are se di ra en rieo solleva- 


te quel tasto. Altre incompatibilità forse 
ve ne sono ma. finora, nessuno ha affron- 
tato il problema in modo sistematico per 
individuare i limili del modo ft4. 

Se. naturalmente, qualche lettore ha 
condotto studi in proposito, saremo ben 
Eie 11 di pubblicare il resoconto delle sue 
esperienze, 

ipotesi non azzardate 

□ Premetto che Inscio sempre inserito 
il dischetto nel drive sia quando accen- 
do che quando spengo. Da un po' di 
tempo, però, mi accorgo che alcuni file 
non cani paiono più nella directory no- 
nostante io noti li abbia espressamente 
cancellati. 

(Af Evangelisti. AI aderta) 

* Se l'apparecchio al quale ti riferisci 
quando dici 'accendo e spengo” c il drive, 
mi meraviglio che vi sia ancora qualche 
File sul disco ertoti che ne manchino alcu- 
ni, Se invece ti riferisci a] computer, nes- 
suna preoccupazione: tutte le volte che 
accendi il computer viene inviato un se- 
gnale dì rese e anche al drive die non fa al- 
tro che rc-in maliziarsi 

Il dischetto va inserito .solo quando il 
drive c acceso e tolto prima di spegnerlo. 
Fa eccezione il caso in cui si desidera atti- 
vane la procedura dì RoolMrap che. per il 
PC- 1(1 e per i! C71281n modo 128 (oppure 

CP/M) richiedono espressamente l'inse- 
rimento del dischetto prima dell'accen- 
sione del drive, Ti consigliamo, però, di 
seguire tale procedura solo se possiedi mi 
I57L predisposto per il BooLstrap. Se hai 
un 1541, accendilo, inserisci il disco e, in 
seguilo, accendi il computer per il carica- 
mento automatico. 

Se r È t ì e n i d i aver se m p re segu i to s crei pe- 
losa mente le indicazioni appena dette, 
l'unica spiegazione logica che giusti fica 
la cancellazione di alcuni file è dovuta al 
fatto che utilizzi la dannata chiocciolina 
per registrare un file dotato dello stesso 
nome di un altro file presente su disco: 
per un po di tempo laìe forma sin lattica 
"funziona" correttamente ma capita al- 
meno una volta che hi BAM va iti tilt, ro- 
vinando numerose zone del dischetto. 

Per registrare un nuovo file* pertanto, 
ricordarsi di attenersi rigorosamente alla 
seguente procedura: 

* Registi are il nuovo 11 le (sequenziale, 
programma, relativo o user che sia) con 
un nome di comodo (es. PIPPO). 
•Cancellare il vecchio filo, 

* Cambiar nome a PIPPO eoo il coman- 
do di Renarne. 

Credimi: è l'unico ritenta per evitar sor- 
prese amarissime che Fanno malissimo. 
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GIOCHI 

AMIGA 


Videogames 
per Amiga 


Una breve panoramica sul fronte dei 
videogiochi per ìl tuo nuovo, 
fiammante computer 


dì Giovanni Valli e Ornella Fidarti 


Come abbiamo già detto la volta 
scorsa, il Commodore Amiga è un 
computer che può essere utilizzato in 
molteplici campi e quasi sempre con 
buoni risultati. Questa volta d riferi- 
remo al campo “disimpegnato" dei 
giochi. Nostro compito, infatti, è il 
verificare se le notevoli possibilità 
dell'Amiga vengano realmente sfrut- 
tate dal software per ora disponibile. 

Con la nostra esperienza possiamo 
affermare che, quando viene immes- 
so sul mercato un nuovo computer, 
non tutti i giochi reperibili possono 
essere subito dì buon livello. Non 
di omenti chiamo, infatti, i primi vi- 
deogame del C/64 che erano a mala- 
pena dello stesso livello del Vic-20. A 
volte, inoltre, alcuni giochi non sono 
altro che il frutto di modesti adatta- 
menti di giochi creati in precedenza 
per altri computer (nella fattispecie, 
il C/64), 

Iniziamo a parlare del primo pro- 
gramma che ci è capitato di esamina- 
re, in ordine di tempo, che si chiama 
“GTHELLO” ed è scritto semplice- 
mente in Basic da David Addi- 
somNon è altro che la versione per 
l'Amiga del noto gioco da tavolo che 
si svolge fra due avversari, det quali 
uno dei due può essere il computer. 
Bisogna dire che la schermata grafi- 
ca è ben realizzata e, a vedersi, è an- 
che riposante. 

Senza dilungarci sulle regole del 



gioco, che tutti conosciamo, faccia- 
mo notare soltanto che la scacchiera 
è ben raffigurata in tre dimensioni. 


ma che i comandi per posizionare le 
pedine (uno per direzione) sono mol- 
to scomodi da usare, A nostro avviso 
sarebbe stato meglio utilizzare il 
mouse, fornito di serie con la mac- 
china, per rendere più comodo lo 
spostamento delle pedine. 

Il secondo gioco che ha attratto la 
nostra attenzione è “DELTA EÀ- 
TROL”, prodotto dalla Other Valley 
Software. In questo game, u n elicotte- 
ro sorvola una landa deserta, cimen- 
tandosi contro nemici volanti; il velì- 
volo, però, deve atterrare spesso per 
rifornirsi di carburante. Come si può 
chiaramente capire, questo gioco 
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non è cerio innovativo e rammenta 
uno dei programmi del 1-64, del qua- 
le ricalca anche la grafica. Di certo si 
poteva fare t!i pili e sicuramente sa- 
ranno proposte, nel prossimo futuro, 
altre versioni di maggior effetto. 

Vogliamo ora parlare di “MAR- 
BLE MADNES5”, versione per l'A- 
miga del celebre gioco che furoreg- 
giava nei Bar un paio di anni fa, com- 
posto da più fasi da superare in un 
tempo ben preciso. I) giocatore deve 
condurre al l'arrivo, in ogni fase, una 
sfera rossa attraverso un cammino ir- 
to di ostacoli, cercando di incanalar- 
la in stretti passaggi e fronteggiando 
ripetuti attacchi di nemici implaca- 
bili: quesri sono rappresentati da un 
gruppo di bruchi che, tra l’altro, fan- 
no addirittura capriole per non far 
scappar vìa la preda; le lanciano con- 
tro acidi corrosivi, martelli ed aspira- 
tori che compaiono all’improvviso, 
ponti mobili e perfino una gigante- 
sca onda alla fine della terza fase. 

A complicare la faccenda si aggiun- 
ge il fatto che non è semplice mano- 
vrare il mouse, tenendo conto della 
prospettiva e della pendenza dei vari 
percorsi. Da quanto detto si com- 
prenderà che questo è un gioco molto 
impegnativo e coinvolgente, al punto 
da rimanere incollati allo schermo 
per lungo tempo. A ciò contribuisce 
anche il sottofondo musicale, diverso 
per ciascuna fase del gioco, che sotto- 
linea i numerosi momenti di ten- 
sione. 


In conclusione non possiamo fare a 
meno di ammettere che la grafica è 
ottima e curata nei minimi dettagli, 
tanto da fugare gli ultimi dubbi sulle 
reali possibilità grafiche. 

Questa prima panoramica sui pro- 
grammi da svago termina con un 
cenno a **MEAN 18’\ edito da Acco- 
lade. Tn questo videogame ci trovia- 
mo in un campo da golf, ben realiz- 
zato e facile da percorrere. Sottoli- 
ne amo che gii autori hanno cercato, 
riuscendo in pieno con successo, di 
ricreare situazioni reali (per quanto 
riguarda, ad esempio, la dinamica 


del movimento impresso alla pal- 
lina). 

Quando sì fa partire il programma, 
la prima schermata mostra una sim- 
patica talpa che sbuca dal suolo; suc- 
cessivamente vengono poste nume- 
rose domande sulla scelta dei campi, 
sul numero c sulHdentità dei gioca- 
tori, sulla intenzione o meno di far 
pratica prima dcUlnizìo del gioco 
stesso. Dalla posizione di partenza, 
dopo aver osservato in pianta il cam- 
po relativo alla prima buca, appare 
i'immaginte del campo stesso vista 
dalle spalle del giocatore; di fronte, 
in prospettiva, la buca. Si ha una 
chiara visione degli alberi, dei tipi di 
fondo, e poco importa se la risoluzio- 
ne grafica non è delle migliori perche 
tutti i particolari salienti sono ben 
rappresentati. Sui bordo inferiore del 
video troviamo un gruppo di infor- 
mazioni e di comandi (tra cui, ad e- 
sempio, quello per cambiare la dire- 
zione del tiro). All'estrema sinistra 
dello schermo una colonnina gra- 
duata Ìndica la forza da imprimere, 
che sì sprigiona nel momento in cui 
sì schiaccia il pulsante del mouse. 
Quando si arriva al GREEN, ì! punto 
dì vista si sposta al dì sopra della te- 
sta del giocatore e viene indicata con 
una linea la direzione del tiro. 

Notevoli sono gli effetti sonori e i 
rumori che accompagnano il colpo 
ed il conseguente movimento della 
pallina, davvero molto realistici. 
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•C (TIZEN 


TELCOM IMPORTA 
E DISTRIBUISCE 
LE STAMPANTI CITIZEN 

Uno gommo d i stampo ori che copre tutte le esigenze- 
- stampa alfanumerica normale, asce od ente -di scen- 
dente., espanso, compresso. Elite, Near Letter Quoiiry, 
grafico compatibile IBM, 8 Kbyres di buffer di stampo, 
trattore di moduli continui, inseritore di fogli singoli, 
restino a 9 aghi (24 aghi su HGP 45), 


MODELLO 

NA, COLONNE 

VELOCITÀ KAA/SEC) 

LSP 10 

60 

120 

MSP 10 

60 

160 

MSP 15 

136 

<60 ' 

MSP 2D 

60 

200 

MSP 25 

136 

200 

HQP45 

136 

200 

E per gli hobbisti.» la piccolo 1200: 80 colonne, 120 
caratteri cor/ sec eoo interfaccia parallela, seriale, compari- 


bile APPLE, COMMODORE. 



□ Vis ro di un V& Funziono rio 
Nome e Cognome 

Soderò/ Ente 

Via 

Città CAP 



tee 


Telefono 


Telcam srl ■ 20146 Milano - Vìq M. Civifoli. 75 

Tei. 02/4047646-4040046 

Telex 035654 TELCOM I ■■ Telefax 02/437064 





> I m!#i amici K 

/ CU.P iunA £ 


£ 02 Programmi ^ 


Cwrw»d« 


Autori Vari 


Autori Vari 


Adori Vari 


Autori Vari 


Strategie vìncenti per 
Commodore 64 

Le strategie per tutti i classici del 
videogioco: per giocarli, vincerli o 
programmarli. 


64 Programmi per 
Commodore 64 


I miei amici CtG & Plus4 


Un manuale pratico per padro 
raggiare il basic di questi com 
poter. 


Giochi, grafica, gestione delle 
siringale, musica, numeri, gestio- 
nali. 

Lire 4. eco 


Giochi, grafica e routine per im 
parare a programmare. 


/ Tufi! I ugrtti £ 


Roberto Didoni, Guido Grassi 

Utilities e giochi didattici 

Raccolta di programmi pratici per 
tulli i Commodore e lo Spec- 
ial m. 


Roberto Didoni, Guido Grassi 


Paolo Coglie 

Impara giocando il basic 
dello Spectrum 

Esercizi pratici per entrare nei vi 
vo delta programmazione. 


Giovaniìi Meliina 


Tutti i segreti dello Spectrum 


Simulazioni e test per 
la didattica 


4 passi netta Rom: come usare le 
più importanti routine del siste- 
ma operativo. 


Teoria e listati per Vie 20, C16 
C64 CI 28 e Speclrum Sinclair. 


{ l p il 

nguagglo 


Clizie Merli 

p Pascal per Commodore 64/ 
128 


Autori Vari 


Umberto Cofapicchiont e Luca 
Galuzzi 

Dai registratore al drive del C64 

Tuffi i segreti delle memorie dii 
massa del Commodore 64 

Lire 7,000 


Clizio Merli 


ADA 

Il linguaggio passepartout dei 
compuier degli anni '80. 

Lire 5*000 


Il linguaggio PASCAL 

Un manuale tascabile per lo sto 
dio e la programmazione. 

Lire £.000 


Un manuale completo per il prò 
gramma compilatore 

Lire 7.000 


S), voglio arricchire la mia biblioteca con i seguenti volumi al prezzo di copertina + lire 3.000 per spese di spedizione 
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□ 64 Programmi per Commodore 64 □ Utilities e giochi didattici 

□ Strategie vincenti □ Tutti i segreti dello Spectrum 

per i tuoi videogame^ Q Simulazioni e test per la didattica 

□ 62 Programmi per Vie 20 □ imparare giocando il basic 

C16 e PFus77 dello Spectrum 

Nome * * * — » . * 


□ I miei amici C16 e Plus4 

□ Pascal per Commodore 128 

□ Dal registrattore al drive del C64 

□ ADA 

Q I] linguaggio Pascal 


via 


N.ro 


telefono 


CAP 


Città 


Su tale imporlo mi praticherete io sconto del 10% in quanto abbonato a □ Commodore Computer Club l Personal' Computer 
□ Computer □ VR Videoregistrare. Pertanto vi invio la somma soltanto di tire - * — 


Valore dell'ordine lire 


Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V.le Famagosta 75 - 20142 Milano, 




GRAFICA 

C 16 - PLUS 4 


Koala per C/16 


Un breve programma che consente, 
tuttavia, di sfruttare le potenzialità 
grafiche del piccolo computer 


di Marco Snella 



tzon questo programma, gestibile 
con joystick e lumiera, si possono ot- 
tenere simpatici disegni in alta riso- 
luzione. grazie al ricorso intensivo 
alle isira/ ioni grafiche. 

Chi possiede il t Ih non deve digi- 
tare le REM né lasciare spazi tra i- 
stru/ioni successive dello stesso rigo; 
se, pertanto, viene segnalato un ' Out 
Gl Memory I rmi'’ vuol dire che non 
vi siete attenuti al consiglio sugge- 
rito. 

I disegni eseguiti possono esser re- 
gistrati su disco oppure su nastro. 
Chi possiede il registratore deve digi- 
tare la riga 535 < e non la 53< i), mentre t 
possessori di disk drive tosse ri vera li- 
no la 531) (e non la 535), 

Un C/lh, come è noto, ha a disposi- 
zione una quantità molto limitata ili 
memoria, specialmente se si utilizza 
la grafica ìn alla risoluzione Non è 
quindi stato possibile inserire istru- 
zioni che "restituissero’' il program- 
ma una volta registrata la schermala 
mediante la manipolazione del bui 
lor di tastiera e il Monitor di linguag- 
gio macchina. 

Dopo aver caricato una schermala, 
invece, è possibile recuperare il pro- 
gramma digitando "alla cieca (sen- 
za. cioè* che possiate vedere ciò che 
battete) il comando diretto: 

GOTO 30 

1 possessori sii C/128 devono modi- 
ficare in pane it programma che. a 
causa di alcune POKK non è com- 
pleta mente compatibile. Il listato 


non è ottimizzato ed è possìbile ri- 
sparmiare molli byte, utilizzando al- 
tre tecniche di programmazione, in 
un modo da inserire altri comandi m 
grado dì rendere ancora più versatile 
il programma stesso, 

C ome usare 
it programma 

Inserire il Joystick nella porta N I 
per spostarsi nelle varie direzioni 
Premere Lire, mentre vi spostate, 
per disegnare 

tasto 1 pei cambiare colore al pen- 
nello (max. ire colori diversi). 

Tasto +, - L per memorizzare le coordi- 
nate del punto (X) indicato dal Joy in 
un particolare momento. 


HOME per tracciare un segmento 
dal punto in cui vi trovate |Y) al pun- 
to [X) rissalo p recedente mente, 

ESC per cancellare la riga. 
RETURN per cancellare lo schermo. 
SPAZIO per colorare un'arca deli- 
mila la, 

C per disegnare un cerchio (vengono 
chiesti i parametri). 

I per caricare un disegno. 

* per registrare il disegno effet- 
tuato. 

H per definire il punto "attuale ' come 
vertice di un rettangolo, 
lì per tracciare il rettangolo, 
per cancellare un rettangolo. 
INST per cancellare un cerchio. 
CRSR per spostare il pennello velo- 
cemente, senza lasciar traccia. 
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COLORO . 2 , 3 : CGL 0 R 4 , 5 , 2 : CDL 0 R 3 T 1 : COLORI , 2 , 2 : CQL 0 R 2 , 2 , 4 : REM DEFINISCE 1 COLORI 

GRAPHICS* 1 : A “00 : S“ 10 G;Q“ 1 : P“S; 0 -A 

GETA3: J-ASCCA5} : I F J-49THENQ-0 + 1 : 1 FQ-4THENQ-1 

I FJOY £ 1 ) “ 1THÉNDRAW0 „ A h 5 : 5"S^ 1 : DRAUfQ , A , S : REM JOY ALTO 

lFJOYCl)- 2 THENDRAUj 0 , A. 5 :S“S -1 : A-A+l : DRAWO, A, 5 : REM JOY DI AG * ALTO DESTRA 
I FJOY C 1 ) “ 3 THENDRAU 0 ( A , 5 : A“A+ 1 : DRAWQ p A p 5 : REM JOY DESTRA 

I FJOY 1 1 ) “ 4 THENDRAU 0 , A h S : A“A + 1 : 5 "S + 1 - ORAUQ , A , 5 ; REM JOY DI AG. BASSO DESTRA 
I FJOY C l ) “ 5 THENDRAW 0 , A, B: 5 ” 5+ 1 r DRAWQ , A p 5 : REFI JOY PASSO 

ÌFJOYC 1 } “ 6 THENDRAUI 0 , A , S ; A“A ~1 : S-S+l : DRAWO , A , S: REM JOY OIAG. BASSO SINISTRA 
IFJOYC 11 -' 7 THENDRAU 0 I A,S: A-A-l : ORAWQ , A,Si REM JOY SINISTRA 

I FJDY C 1 3 *■ 8 THENDRAW 0 , A , 5 : A W A~ 1 : 5 “ 5- 1 : DRAGO t A , S : REM JOY □ I AG . ALTO SINISTRA 
IFJDYC 13 - 12 STHEN 5 - 5-1 iDRAU/G, A.S: REM DISEGNA ALIO 

1 FJ 0 YC 1 W 3 BTHENA-A + 1 : 5 - 5-1 : DRAGO* A, 5 : REM DISEGNA DI AG. ALTO DESTRA 


>5-1 


IFJ0YC1 3-131THENA-A+X; DPAWD, A r S ; REM DISEGNA DESTRA 

IFJQYC1)-132THENA“A + 1:S-S+1 : DRAUJQ, A, S: REM DISEGNA DI AG. BASSO DESTRA 
IFJ0YC15-133THEN5-S+1 : DRAGO, A p 5; REM DISEGNA BASSO 


1FJ0Y(1)-134THENA-A-Ì:5-S+1 < DRAWQ, A , S; REM DISEGNA DI AG. BASSO SINISTRA 
IFJOYt 1 1" 135THENA*A-1 ; DRAUID, A, 5 : REM DISEGNA SINISTRA 

IFJ0YC11-13GTHENA-A-1: S-S-l : URAUU, A, S: REM DISEGNA D I AG .. ALTO SINISTRA 

IFJ-157THENDRAW0 t A ,5: A-A-10 ; ORAWO t A, 5: BEN FRECCIA SINISTRA 

IFJ-23THENDRAU0, A ,3: A-A+10: DRAWQ, A, S: REM FRECCIA DESTRA 

IFJ-145THFNDRAU0, A, S:S“S-10; DRAGO, A t S: REM FRECCIA BASSO 

IFJ-17THENDRAW0, A ( S:5-S+10: DRAGO, A, 5: REM FRECCIA ALTO 

IFJ-32THENP-A + 1 :S“S + 1: PAINTO. A,5, 1 : REM COLORA AREA 

IFJ-13THENGOTO20; REM CANCELLA SCHERMO 

IFJ-50THENO-A; P-S;REf1 FISSA PUNTO X 

I FJ“ 13THENDRAU0 , A t SI 00 * P ; REM DISEGNA LINEA 

EFJ-20THEMCIRCLE0, A, S, R/2, R: REM CANCELLA CERCHIO 

IFJ-B7THENGOSUB370: REM CERCHIO 

IFJ-42THENGDTO520: REM 5ALUA DISEGNO 

IFJ-76IHENGQSUE550: REM CARICA DISEGNO 

IFJ“55THENL“A:K“S: REM FISSA PUNTO X PER BOX 

1FJ-66THENBOXO,L, K f A,5: REM DISEGNA BOX 

IPJ-GITHENBQXO, L, K, A t S: REM CANCELLA BOX 

IFJ-27THENDRAW0, ASSIDO, P: REM CANCELLA LINEA 

GOTO30 ; REM CICLO LOOP 

GRAPHICS: I NFUT “3? AGG I □ ,r ; R 

PRINT”J!]flC-C£RCH10 J, ;FRINT"5-5ÉmCERCHICr : PR I NT PI A-ARCO DI C I PC , fl 
INPUTX5; IFXS* "C'THENGRAPH IC3 : C I RCLEO n A p S , R/2 , R ; RETURN 
I FX$“ "S “THENG0T042Q 
I FXS“ ?P A "THENGDTQ470 

PR 3 NT “3A-ALTQ " : PR I NT JP D~ DESTRA " : PR 1 NT ”B-BAS50 rt : PR I NT l> 2~51 N ISTRA " 

INPUTXS: IFXS“*‘A‘ J THENGRAPH3C3 : CI RCLEO , A , S, R/2 , R, 270 , 90 : RETURN 
I FX$" , 'D’ > THENGRAPHIC3: CI RCLEO , A , 5 p K/2 P R , 360 , IH® : RETURN 
I FX$» t> B'*THENGRAPHlC3 : CI RCLEQ R/2 , R . 90 . 270 : RETURN 

GRAPHICS: CI RCLEQ* A, S , P/2 , R, 150,360: RETURN 

PR I NT pl I3A- ALTO 5 1 N ” : PR I NT "D-ALTO DE5 " : PR I NT ^Z-BASSO SIN": PR I NT "X” BASSO DEE” 

INPUTXS: I FXS“ 3t A "THENGR APH I C3 : C I RCLED p A , S , R/2 . R * 270 p 350 : RETURN 

IFXS-"D ,J THENBPAPHIC3: CI RCLEO, A. S, R/2, R p , SO : RETURN 

I FXS- " 2 P1 THENGfi APH I C3 : C I RCLEQ , A , S + R/2 , R , 160 , 270 : RETURN 

GRAPHICS: CI RCLEQ, A, 5, P/2, R, 90, 100: RETURN 

GRAFH I C0 : I NPLFT "NOME PROGRAMMA NMS 

REA RIGA 530 UERSIGNE PER DISK DRIUE 

FRlNT"Cnr ,J : PRIMI " swinmneiw E » +rHPSf 34 j+Nn$+CHR*f.34D + l, 00 2000 3F50" : PR I NT ,p iMX 11 
REM RIGA 535 UER5I0NE PER NASTRO CASSETTA 

PR3NT"Uir ,J : PR I NT '' ZtoMemmB 11 +CHRS ( 34 m j +NMÌ+CHRS i 34 3 + P Q1 2000 3F5C" : PR 1 NT”£lflK " 
P0KE239,S: PCKEÌ313, 19 : FOR I “0TQ7 : POKE 1 320+ 1 , 13: NEXT: END 
GRAPHICS: INPUT "NONE PROGRAMMA " ; NMS 

GRAPHICS: FRI NT 11 311“": PR! NT "SI5M5MSIL "+CHRSC 34) +NMS+CHRSC 34 l+ , '0G ,p : PRINT"SI3K " i PR 
1 fiER APM I C3 " J 

P0KE239 s 6 : PUKEl 319 t 13: FORI "0107 : P0KE1320 + I ,13 : NEXT 
END 


REM DI SEGNA D I AG . BASSO SINISTRA 


■BASSO* : PR 1 NT 


■SINISTRA 


: PR I NT "X” BASSO DE5 1J 
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n oie vaia percentuale dei nostri lei 
tori è alle prime armi nel mando delHn 
formatura e incontra difficoltà nel digita- 
re i programmi da noi pubblicati. 

t caratteri "speciair 1 bianchi su fondo 
nero ( semi -grafici in "reverse**) che rap- 


presentano precisi comandi per i cernì pu- 


le» Commodore sono riportati nel lutato 


ili esempio a sinistra cosi come appaiono 
digitandoli sa video a su stampante, 
meni re a destra come fi rappresentiamo 
nei nostri listali. 

I a riga 3WI. ad esempio, deve cosi es- 
ser interpretata: 

dopo aver battuto il carattere di virgolet- 
te (") che si ottiene premendo il tasto 
SUN d insieme con il tasto 2, L decessa- 


tasto, cioè, che normalmente spostereb- 
be il cursore nella cella video 
sottostante). 

Analogamente, nella riga I SI 1 del lista- 
iti "tradotto'* (di destra), il termine [NE* 
Rf >1 sta a significare che bisogna mi lizza- 
re il carattere speciale del colore nero 
f tasto ( TRI insieme con il tasto I, vedi 


Per ricordare in che mtido vengono 
normalmente visualizzati j caratteri spe 
ctah, nella seconda parte delle righe di 
sinistra (dopo i REM ) sono riportati t 
tasti che è necessario premere per otte- 
nere il carette re-comando "speciale 


no battere il carattere C RSR DOW N (il lìstainpdi sinistra » 


La Redazione 
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100 
1 10 
170 
130 
140 
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PFM 1 CARATTERI SPECIALI 
REM DEI COMPUTER E OMMODORE 
p E M COME APPAIONO NORMALMENTE 
REM SU VIDEO O SU CARTA . 

REM fC T RL = ^ASTO 
REM < C^OF - TASTO 


REM > CRSR = TASTI 


CONTROL) 
COMMODORE ■ 
CURSORE > 


! 9 0 

PR I N T ” ■ <T * 

REM 

CTRL + I 

NERO 

, ise 

FPÌNT " [MERO 3 31 

1 90 

PR 1 NT " 

RDM 

« +a 

BIANCO 

■ 130 

PR INT" re I ANCO ] '* 

800 

PR I NT '* 

REM 

* +3 

ROSSO 

700 

1 

FRINT" t POS SO 3 " 

7 1 0 

PP 

PCM 

11 +4 

AZZURRO 

3 10 

PP INT" tAZZUF ] rt 

370 

PR INT " %" 

REM 

" +5 

PORPORA 

! 330 

PP TNT « tv I OLA 3 11 

330 

PR 1 NT rt fcl" 

REM 

* +6 

VERDE 

?qp 

■hi *h,® %rnr m 

PP TNT ,l T VERDE 3 ,p 

34 0 

pp imi i, a H 

REM 

n +? 

BLU 

, F40 

PR INT > p [BLEU ì “ 

250 

PR ì NT "*3" 

PCM 

" +8 

GIALLO 

1 750 

PPINT * f GIALLO] ,p 

3C0 

PR INT* 3" 

REM 

« +9 

REVERSE QM 

1 £S 0 

RPIMTMRVS 3 " 

770 

PR I NT “ W* 

REM 

B +0 

RE VERSE OFF 

\ 370 

PP I NT * f PVOFF 1 " 

700 

PP imt*lt 

PEM 

c r cip + i 

ARANE 1 0 

j E 30 

PP INT ” CARAMC 3 ta 

390 

PR ! NT K" 

REM 

" +3 

MARRONE 

i 330 

PR I NT “ [ MA F R 3 " 

306 

PP INT ’D" 

iPEM 

IP + 3 

ROSSO CHIARO 

1 ?O 0 

PF T F IT [ F OSA ] 11 

3 10 

PP T NT p< H" 

REM 

ih 4 4 

GRIGIO 1 

1 3 10 

PF INT" f OP IGIO] I " 

130 

ppiNT fl :.r 

REM 

■ +5 

GRIGIO E 

1 370 

RF UT” [GP IG 1023“ 

?30 

PR ? NT " Bp 

REM 

» +6 

VERDE CHIARO 

1 730 

PF IMT W [VERDE? 3 " 

330 

PP TNT* J" 

REM 

*■ 7 

BLU CHIARO 

1 340 

pp TM T i CELESTE 3 " 

350 

PP lMT lt ’l lt 

REM 

■■ 

GRIGIO 3 

l 350 

PR IMT 13 r GP 1 0 1 J? 1 " 

3E 0 

PR IN~ rt IT 

REM 

CRSR 

IN BASSO 

1 870 

PRIMT" CDQLK 1 ) " 

fi* 

( 

r> 

PR I NT 11 H* 

PFM 

CRSR 

A DESTRA 

1 370 

PP INT" fP IGHT 3 " 

3^0 

PPHIT 

REM 

CRSR 

IN ALTO 

1 380 

É 

PR I NT * CUF ] w 

7S0 

pp iNT "ir 

PFM 

CRSR 

S INI 3 TP A 

33G 

PP I NT * [ LEF T 3 J1 

400 

INTO- 

REM 

HOME 


1 400 

' 4 10 

4S0 

PR INT" [HOME 1 ri 

4 ! 0 

470 

PPI NT* J M 

* 

m 

REM 

CANCELLA SCHERMO 

PFINT* tCLERR ] 11 

ri 

1 

4?0 

REM ET3EMP I T I V T SU AL 1 2 ZftZ IONE : 

430 

REM ESEMPI 

440 

pp !nt aavmmmi* : rem 

? REM 

CANCELLA SCHERMO, 
CRSR DL-JN DUE VOLTE 

| 440 

1 

PR INT" TCLEAR ] t£ 

14 RTGHTJ" 

4P0 

4^0 

ii 

p 

m 

m 


PEM 

CF3R DESTRA TRE " 

450 
| 4B0 

i 

a 

ri 

ri 


480 

^Pl 

500 


PP INT' 1 


" s REM E 1 ANCO , CRSR SINISTRA 
: REM DUE VOLTE E CRSR 0UX3 
-REM UNA SOLA VOLTA 


1 00 

PCM 

t CARATTERI 

1 IO 

FEÈ-i 

speciali: come 

1 37 


VENGONO INO ICAT 1 

i ?r 


SULLE DIVISTE: 

S 40 

REM 

COMMODORE 

I 50 

PEM 

F COMMODORE 

1 SO 

PEM 

COMPUTER CLUB. 


E 70 


0 0 UN ] 


470 

480 


PR 1 NT “IBI ANCO 1 17 

1 [.DO UN 3 p 


EFT 


■ ConimrxJore Computa? Chih 



“MS-DOS & GW-BASIC emulator" è anche su disco. Per quanti hanno acquistato la versione su 
cassetta ed inviano la relativa prova d'acquisto, il dischetto è disponibile a lire 15.000 (+ lire 3.000 
per spese di spedizione ). Non occorre inviare la cassetta nè tantomeno il manualetto di istruzioni. 
Chi non é in possesso della cassetta può richiedere il disco ed il manualetto al prezzo normale di 

lire 25.000 ( + lire 3.000 per spese di spedizione). 

Per una veloce evasione dell’ordine inviate un assegno bancario o circolare non trasferibile 
all'ordine della "Systems Editoriale" (V.le Famagosta, 75 - 20142 Milano). 



Sempre un passo avanti. 


RECENSIONI 


Le avventure 
di Charlie Deus 


Anteprima di un nuovo software della Systems Editoriale 


di Michele Maggi 
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RECENSIONI 


E in edicola una nuova cassetta 
edita dalla Systems Editoriale intito- 
lata' Charlie Deus" che contiene una 
Adventure di alto livello dal tema 
Natalizio. 

Charlie Deus è un detective di 
grande fama, noto soprattutto per la 
sua velocità nel risolvere i casi più 
difficili* 

Nella sua carriera di investigatore 
non ha mai deluso chi si è rivolto a 
lui c ha sempre risolto tutti gli enigmi 
con la flemma e il self-control tipici 
di un gentleman inglese. 

In questa nuova serie di avventure 
sarai tu che, nei panni dì Charlie, do- 
vrai trovare la soluzione dei casi che 
ti si presenteranno. 

La caratteristica che fa di questi 
adventure un prodotto molto parti- 
colare è la gestione del dialogo 
giocatore-computer che + oltre ad ave- 
re un notevole supporto grafico, pre- 
senta una particolarità unica: i dialo- 
ghi fra Charlie Deus c gli altri perso- 
naggi sono.,, a fumetti! 


OK J SARÒ p* 
LÈTI Ai. PitT 
PPFSTflJ 




Chris (mas adventure 

E' la vigilia di Natale e Charlie 
riceve una telefonata di frate Ze- 
bio s supcriore dei frali di $t. Jo- 
seph che, con voce concitata, gli 
annuncia il furto dell 1 Holy Child, 
il prezioso Bambinello che ad la- 
gni Natale viene esposto nel prese- 
pio della cattedrale fra S. Giusep- 
pe e la Madonna. 

I] Bambinello è una scultura in 
legno del XII secolo con gli occhi 
dì smeraldo e un’aureola doro 
zecchino tempestata di pietre 
preziose. 

Questa sta tu ina gode di grande 
popolarità e rappresenta una forte 
attrazione turistica, tanto che, nel- 
la cittadina, è sorta una piccola at- 
tività commerciale: V Holy Child 
Shop, gestita da uno scultore che 
produce pregevoli riproduzioni 
del Bambinello. 

Sono le ore 20 del 24 dicembre 
1986 e Charlie ha solo quattro ore 
per ritrovare e collocare il Bambi- 
nello al suo posto in tempo perla 
messa di mezzanotte, sempre che 
riesca a trovarlo,.. 

1 comandi 

Charlie è perfettamente in grado 
di capire quanto gli viene detto, e- 
siste comunque una lista di verbi e 
comandi che permettono una più 
immediata comprensione: 


* N = Nord 

* S * Sud 


* E = Est 

* O - Ovest 


Oltre ai comandi di movimento 
e ai verbi, che possono essere vi- 
sualizzati in qualsiasi momento 
con il tasto V {+ Return), esiste u- 
na serie di comandi di una sola 
lettera (o simbolo) che svolgono 
particolari funzioni: 

* I: inventario, tutto ciò di cui 
Charlie è in possesso verrà elen- 
cato; 

* T: tempo trascorso dall'inizio 
de ^avventura. Ricorda, hai solo 
quattro ore... 

* D: deduci, in particolari situa- 
zioni è possibile chiedere a Char- 
lic di dedurre qualcosa in funzio- 
ne degli elementi di cui è in pos- 
sesso; una funzione di HELP mol- 
to comoda e T in ceni casi, addirit- 
tura provvidenziale; 

» R: ripeti, l'ultima frase apparsa 
nel fumetto verrà ripetuta; 

* W: salvataggio dei dati; 

* F: fine gioco; 

* -: rallenta la velocità di scorri- 
mento airintemo del fumetto; 

■ — ; la riporta al valore nor- 
male; 

* +: la porta ad una notevole 
velocità. 

Tutti questi comandi devono es- 
sere seguiti dalla pressione del ta- 
sto Return. 

Ogni volta che si entra in posses- 
so di un elemento determinante 
perla risoluzione del caso, un pic- 
colo stacco musicale ti avviserà 
che sei sulla buona strada. 


HARDWARE C 64 


SPEEDDOS superiselo cimatore (Montaggio a richiesta) daL 45 000 

FAST LOAD il più comodo velocìzzatore su cartuccia (64/128) L 28 000 

DOPPIO KIT GRAFICO PER MPS 802 abilita la grafica sulla 802 rendendola 803 compatibile, con uno SWITCH 
si potrà selezionare o il modo 802 o il modo 803, le caratteristiche della 802 non vanno perse L. 45 000 
FQRMEL 64 novità! nuovissimo veiocizzatore per il 1 541 P LOAD SAVE e VERiFY ad una velocità incredibile! 
Contiene un potente TQOLKIT nonché un basic esteso con moltissimi comandi utili. Viene abilitato anche un 

potente monitor per il linguaggio macchina. Monitor anche per il drive! _ . L 80,000 

THE EXPEftT superfreezer la nuova cartuccia che copia qualunque programma dalla memoria del 64 trasfe- 
rendolo in un solo file su disco o nastro L 70.000 

MULTICARTRIDGE 1 (64/1 28) 4 favolose utility di copia e gestione disco sempre pronte all'uso perchè riunite 

nella stessa cartuccia (Novità ALGOB1T) ... L 45.000 

FREEZE FRAME (64/128) congela la memoria del calcolatore trasferendola su nastro o disco L 50.000 

FHEEZE FRAME Ut ultima generazione di freezer L 65-000 

FLOPPY DISC DSDD 5 1/4 - 100 % Error Free (minimo 20) L 2,000 

Spedizione in contrassegno - Spese postai» fisse L, 5,000 - Si accettano ordini telefonici 

s-h.c. *■ C.so Genova, 7 - 20123 MILANO - f 02/B35GBQ4 


CENTRO RIPARAZIONI RAPIDE COMMODORE 





L’UTILE 

COMMODORE 64 


Super Data Maker 


Una versione completa per trasformare in 
Data una qualsiasi zona di memoria 


dì Maurizio Hell'Almii 1 


Stai vare su nastro t> disco un pro- 
gramma in linguaggio macchina 
(L \1 } non è operazione così imme- 
diata come succede con il Ila sic 

Tutti lo quagli sanno che un pro- 
gram ma in 1 M non è altro clic un 
Hocco di byte consecutivi: sarebbe 
sufficiente un 'istruzione del tipo 
"BSAVE" per salvare un qualsiasi 
segmento di memoria, ma il i 64, 
manco a dirlo, non possiede un'isini- 
zio ne del genere. 

Siamo quindi costretti a simularla 
smanettando qua e la con le famige- 
rate Pokc; è sufficiente alterare t pun- 
tatori di inizio e fine Basic, effettuare 
mi normale Save c. al momento di un 
futuro caricamento, utilizzare 1 1 co- 
me indirizzo secondario. 

II sistema più difTu.su 

Quella appena descritta è la tecnica 
più usata per salvare i programmi 
L.M.: esistono tuttavia altri modi per 
tarlo. Uno dei più frequenti è quello 
che vedete spesso applicato nei listati 
L.M. di questa rivista: come avrete 
notato i codici vengono posti all in- 
terno di un programma Basic, salva- 
bile mediante un comunissimo 
Save 

Il codice oggetto. contenuto nelle i* 
si razioni Data, viene letto tramile 
"Read” e pokato successi va mente in 
memoria. Ciascuno dei due metodi 
suddetti possiede vantaggi e svantag- 
gi. Prendiamo in esame il primo me- 
todo CBS AVE"). 

Vantaggi: 

* Ogni codice L.M. occupa un solo 
byte in memoria 

* Al momento del caricamento da 
supporto magnetico, il programma 
viene direttamente allocalo in me- 
moria e non necessita di un cielo di 


lettura e pok aggio isi evitano cosi 
stressanti attese ) 

Svantaggi: 

* Il programma non è lisi a bile te co- 
me tale non potrebbe essere pubbli- 
cato su CfC.O 

* Dopo il caricamento (da effettuare 
eoi suffisso \F)è necessario mettere 
a posto i puntatori. 

Prendiamo adesso in considerazio- 
ne it secondo metodo (DAI A). 

Vantaggi: 

* II programma è listai* ile. 

* Futi includo comodissimo quando 
si utilizzano routine in linguaggio 
macchina da lanciare a Min terno di 
un programma Basic. 

* Non richiede l'alterazione di pun- 
tatori. 

* Alla fine sì ha un solo file-program- 
ma. 

Svantaggi: 

* Il programma impegna una cospi- 
cua quantità di memoria: ogni codice 
I.M non occupa infatti un solo byte, 
rnu ciascuna cifra di esso è memoriz- 
zata in codice ASC II. Anche i due 
byte del numero di linea, di link, le 
virgole tra un valore il successivo e<l 
altro ancora, contribuiscono ad au- 
mentare ragguardevolmente la quanti- 
ut di memoria occupata. 

* Un ciclo deve leggere \ valori dal 
Basic e piazzarli in una zona di me- 
moria libera, con relativa perdita di 
Tempo. 

Quest ultimo metodo sembra pre- 
sentare grav i difetti, ma possiede an- 
che pregi estremamente importanti. 

Il programma 

Nasce la necessità quindi di mette- 
re in linee DATA un determinato seg- 


mento di memoria. Esclusa la possi- 
bilità di effettuare l'operazione "a 
mano" (il minimo sbaglio vi farebbe 
ricominciare lutto daccapo, e poi ci 
pensate che perdita di tempo?), ab- 
biamo approntato un programma 
che esegue automatica mente il tut- 
to. 

Il programma che \s presentiamo c 
un Super Data Maker, ovvero un ‘ co- 
struttore" di lìnee DATA completa- 
mente automatico e dotato di alcune 
interessanti opzioni. 

Come abbiamo già detto, un Data 
Maker consente Li rriisfonnazione in 
linee Data di una zona dì memori a 
che rappresenta un programma in 
linguaggio macchina. 

L ovvio che, m precedenza, l'urili/- 
zatore deve aver provveduto ad .ilio- 
care, nella suddetta zona, il program- 
ma Ini. 

Prima di util izzare il programma di 
queste pagine, quindi, sarà necessa- 
rio considcreare che anche questo 
occuparti uno spazio in memoria c si 
dovrà prov vedere a non creare peri- 
colose sovrapposizioni. 

l a memoria a disposizione 

La zona di memoria da porre in 
DATA non deve occupare la zona de- 
stinala al Basic Potete utilizzare la 
zona lìbera che va du 679 lino a Ibi. il 
buffer del nastro (828*1(03) oppure i 
quattro Kb vie locati da 49152 a 
5.1247. 

Nel caso aveste necessità di mettere 
in DATA programmi L M locati nel- 
la zona rise Pi ata al Basic, niente pau- 
ra: trasferiteli dapprima, anche se 
non rilocuhili. in una delle zone di 
memoria consentite (mediante un 
comuni ssi mo ciclo Por... Neui. 1 DA* 
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L'UTILE 


TA. una volta creali, andranno suc- 
cessiva menu- letti e pokati. ovvia- 
mente, nella posi/ ione originaria del 
programma trasferita 

Se tu M(i è pronto caricate Super Da- 
ta Maker (SOM ) e date il KUN: ver- 
ranno poste alcune domande prima 
di “creare ' i Data, Esaminiamole; 

* Indi ri//o di partenza: comunicate 
a SDM l'indirizzo del primo byte del 
vostro programma I M. 

* Indirizzo tinaie: come prima, ma 

rullimo bvte. 

# 

* Tipo di notazione: può essere deci- 
male (la consueta) oppure esudeci- 
male: la nota zio ne Esa è più elegante 
e compalla, ma necessita di una rou- 
tine di conversione al momento del 
caricamento dei Data in memoria, 

* Numero valori per linea: com*é in- 
tuibile, viene chiesta la quantità mas- 
sima di valori su ogni rigo Basic; uti- 
lizzando la notazione decimale il va- 
lore massimo c 17. con ITi.su la quan- 
tità massima sale a 23 e il programma 
stesso, com e intuitivo, occupa una 
quantità minore di memoria. 

* Le successive Ire domande (numero 
di riga iniziale, incremento e spazio 
dopo lo Statement DATA) sono assai 
semplici e scontato, ed è quindi su- 
perfluo fornirne una spiegazione. 

Dopo aver risposto a) Tu Ili ma do- 
manda SDM calcola se vi sono lince 
Basic a sufficienza per portare a ter 
mine l'operazione: in caso negativo 
comunica i possibili rimedi. 

Se invece tutto è andato bene non 


rimarrà che premere un tasto e aspet- 
tare un po' d! tempo, proporzionale 
dì numero di byte da leggere e mette- 
re in "Daia’\ 

Appari ranno, subito dopo, le righe 
di Data pronte per essere salvale ed 
essere “appese" al programma cari* 
calore od al programma Basic che ne 
farà usa 

Si consiglia calda mente (se «pi attui- 
lo agli smemorati) di aggiungere in 
fondo, mediante REM. il nome della 
mutine, la l'unzione che svolge, l'in- 
di rizzo ili partenza (indispensabile 
per sapere dove potarla!), quello di 
line, le eventuali SYS di attivazione 
e/o di esclusione. 


Come "appendere'* 

Date sempre una numerazione re- 
lativa mente elevata alle righe di Da- 
ta, rispondendo opportunamente ul- 
Tapposita domanda. Questo eviterà 
conflitti con il programma cui ver- 
ranno aggiunte. 

Per effettuare un “Appcnd" agite 
così : 

* Spegnere e riaccendete il computer 
(oppure resellate), 

* Caricate in memoria il programma 
principale, al quale andranno ag- 
giunte le righe Data create con 
SDM. 

* Digitate: 

PO KII43. P E EK(45 >-2: PO K 1 .44, 
PEEK(4ó):CLR 

* Se si verifica un “Il legai quanlity er- 
rori' (caso rarissimo), saltate ad ese- 


guire le istruzioni poste subito dopo 
il presente elenco, 

■Caricate, con il consueto LQÀD. da 
nastro o disco le lìnee data create 
con SDM, 

■ Digitale: 

POKE43* I : POKE44*8;CLR 

■ Se avete effettuato correttamente il 
lutto, chiedete LIST: i due program- 
mi si saranno fusi in uno solo, pronto 
per essere salvato o utilizzato in 
altro modo. 

Se compare il messaggio "lllcgal 
Quamìtv Errori*, allungate di qual- 
che byte il programma principale, li- 
ti lizzando. per esempio, Lisiruzione 
REM Ài termine dell'Append tale 
aggiunta potrà essere rimossa. Effet- 
tuare, quindi, le istruzioni del pre- 
cedente elenco. 


Un Àppend automatico 
(pubblicità) 

Sul numero 15 della nostra rivista è 
stata pubblicata una breve routine 
che consente di eseguire un append 
in modo del tutto automatico. 

Solo i possessori di unità a floppy 
disk potranno però usufruirne: i pos- 
sessori della cassetta (che cosa aspet- 
tate a modernizzarvi?) dovranno uti- 
lizzare necessaria me tite la procedu- 
ra "manuale” sopra descritta. 

N.B.: II programma presentato in 
questo numero è una versione deci- 
samente migliorata del listalo già 
pubblicato su C.C.C N.I9, 


100 REM SUPER DATA MAKER - UER * 
110 : 

1£0 REM UTILITY PER COMMODORE 6 
4/1EB 
130 : 

140 REM BY MAURI 21 □ DELL’ABATE 
150 : 

160 : 

170 ; 

100 A“£ : Y-PEEKC45) 

130 IF Y<£ THEN Y-£54+ Y : X- 1 : A“0 
£00 POKE £53 1 Y~A;FUKE £54,PEEK( 
46)-X 


£10 SYS65409: PQKE 190,0 
££0 PQKE 53£BÌ ( 7 
£30 POKE 53£00 t £ 

£40 POKE 646 , 6 
£50 PR1NTCHR$C 147) 

£60 PRINT TABC10); "SUPER OATA M 

AKER 64 " 

£70 PRINT TABt 10) 


£60 FRI NT: PRINT 

£90 PRINT TAB C 3) ; **B Y MAURIZIO D 
ELL * ABATE” 

300 PRINT TABC11) ; "(C) COPYRIGH 


Commodore Computer Gup - 21 





L’UTILE 


I 1986" 

310 PRINT: PRINT: PRINT 
380 PRINT" USARE SOLO UUESTE ZO 
NE 01 MEMORIA: " 

330 PRINT" * 679-767 

. .CIRCA 90 BYTES” 

340 PRINT" * BB8-10B3 

. .CIRCA 800 BYTES” 

350 PRINT" * 49158-53847 

. .CIRCA 4 KBYTES” 

360 PRINT” PER EU I TARE INCONUEN 
I ENT I . ” 

370 PRINT: PRINT: PRINT 
3B0 PRINT TABC4) ; CHRSC1B) ; ” PRE 
HI UN TASTO PER CONTINUARE 

390 POKE 198 , 0 : WA I T 19B,1:P0KE 
190,0 

400 PRINTCHRSC 147 ) 

410 INPUT ’* INDIRIZZO DI PARTEN 
ZA ” ; A 

480 IF A<0 OR A> 65535 THEN 400 
430 Xl-850 : GOSUB 1880 
440 PRINTCHRSC 147 > 

450 INPUT " INDIRIZZO DI TERMIN 
E” ; B 

460 IF B<0 DR B>65535 DR B<-A T 
HEN 400 

470 A-B: X1-B88: GDSUB 1880 
4B0 PRINTCHRSC 147) 

490 PRINT" TIPO DI NOTAZIONE?" 

500 PRINT; PRINT” CD) DECINA 

LE" 

510 PRINT" CE) E5ADECIMALE" 

580 POKE 1 9B , 0 : UJA I T 19B,1:6ET A 

S 

530 IF AS-”D” THEN POKE 8,17:BD 
TD 5B0 

540 IF AS< > ”E” THEN 580 
550 PDKE 8,83 

560 PR I NTCHRSt 14:7) : PRINT : PRINT" 
UALDRE NASSINO -”;PEEKC8) 
570 PRINTCHRSC 19) : INPUT " NUNER 
□ UALOR I PER LINEA"; A 
5B0 IF A< 1 THEN 560 
590 IF A<-PEEKC8) THEN 610 
600 PRINT: PRINT: PRINT : PRINT TAB 
C 11 );"*** TROPPI I I ***" ;FOR 
Z-0 TU 999: NEXT : BOTO 560 
610 PDKE B8G.A 


680 

630 

640 

650 

660 

670 

680 

690 

700 

710 


780 

730 

740 

750 

760 

770 

700 

790 

B00 

810 

880 

B30 

640 

850 

B60 

870 

880 

030 

900 

910 


980 


930 


PRINTCHRSC147) 

PRINT” INNETTI LA NUMERA2 I □ 
NE DELLA PRINA" 

PRINT" LINEA 01 DATA. IL UA 
LGHE DEUE ESSERE” 

PRINT” MAGGIORE DI 8000 E (1 
INORE DI 63000." 

PR I NT : PRINT : PRINT TABC9);”8 
0000 ” 

PRINTCHRSC 145) ;CHRSC 145) : IN 
PUT " UALORE” ; A 
IF A<8000 OR A> 63000 THEN 6 
80 

Xl-884: GOSUB 1880 
PRINTCHRSC 147 ) 

PRINT TAB C 83) ; ”10” : PR1NTCHR 
SC145);CHRSC145) : INPUT ” IN 
CRENENTO CMAX 855)”; A 
IF A< 1 OR A>855 THEN 700 
PDKE 851, A 
PRINTCHRSC147) 

FRI NT” DESIDERI UNO SPAZIO 
DI SEPARAZIONE” 

PRINT” TRA L’ISTRUZIONE DAT 
A ED I SUCCESS IUI” 

PRINT” UALQRI? CS/N)” 

PDKE 198,0; UJA IT 198 , 1 ; GE T A 
S 

IF AS-”S” THEN ZX-38 : GOTO B 
80 

IF ASO ”N” THEN 7B0 
2X-0 

POKE 858, ZX 
X 1-880: GDSUB 1880 : Z-A 
X1-B88; GOSUB 18B0:2-A-Z+1 
PRINTCHRSC 147) 

PRINT” N. BYTES: Z: PRINT 
X 1-BS4 : GOSUB 1880: X-A 
PRINT” PRIMA LINEA DI DATA: 

** ; X 

C1-Z7PEEKCBB6) : C8-C1*PEEKC8 
51 )+X 

IF C8> 63900 THEN 1430 
PRINT : PRINT : PR I NT TABC10J;C 
HRSC1B);” DK, PREMI UN TAST 
□ ** 

POKE 136 , 0 : UJA I T 19B , 1 : POKE 
198,0 

PRINTCHRSC 147) : PRINT TABC1) 

; CHRSC 1B) ; ” OPERAZIONE IN C 
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ORSO ” : PR I NI 

940 FRI NT" *** ATTENDERE PREGO 
*** " : PR I NT : FRINÌ " NON PREME 
RE RUN/5T0P * n 

950 PRINT: FRI NT; FRI NT; PRINT" C 
3 ” ;CHK£C 1B) ; “ SUPER DATA n 
AKER 64 * 

B60 POKE 64B, 14B: PR I NTLHRSt 147 ) 
: POKE 827 t 0 

970 X 1 "064 : GOSUB 1660: UO-A 

900 PRINTA; CHRSC 157) ; "DATA" ; CHR 
$( PEEKC656) 3 ; 

990 X1-B60:GDSUS 1600 : G“A 
1000 XI -066; GOSUB 16B0:CT-0 
1010 IF B-A THEN PQKE 007,1 : BOTO 
1070 

1060 IF CT-PEEKC066)“1 THEN 1070 
1030 J-PEEKCG):IF PEEKC6)-63 THE 
N GOSUB 1330: GOTO 10B0 
1040 X1S-STR$CJ1 :LE-LENCX1$J-1:X 
l$-*RÌ6HTSLX13s * LEI : IF LE-3 T 
HEN 1060 

1050 Z$“ " " : POR CC-0 TO 6-LElZS-Z 
$+CHR$C4B) :NEXT: X1S-Z$+X1$ 
1060 PRINTXISi ” , ” ; : ET -CT + 1 ; G-G+ 1 
; GOTO 1010 

1070 J -PEEK C G 3 : I F PEEKC6)-63 THE 
N GOSUB 1330: GOTO 1100 
10B0 X1S-STRSC J3 : LE-LENC X 1$ ) -1 : X 
1$-RIGHT$<XX$* LEI : IF LE-3 I 
HEN 1100 

1090 ZS-"*;FDR CC-0 TO B“LE:Z$-Z 
S + CHHSC 4B ) : NEXT : XÌS-ZSÉ + X1S 
1100 PR1NTX1S: G-G+l : A-6 : XI -BB0 : ti 
□SUB 1660: DO-OO + PEEia 651 ) : A 
-DO; XI -064: GOSUB 1660 
1110 I F PEEKC13B6)“3e THEN POKE 
1 306 ,tìl: GOTO 1130 
1100 POKE 1366,30 
1130 PR I NT "GQTQ1 1 70" ; 

1140 POKE B31 t 145: POKE 630, 145 :P 
OKE 633,145 

1150 POKE B34 , 13: POKE 63S,13:PQK 
E 190,5 
1150 END 

1170 IF PEEK C B07 > THEN 1S60 
1180 GOTO 070 
1190 : 

1600 : 

1610 : 


1660 Htì- INTC A/656) : LB-A~656*HB 
1630 POKE XI , LB : POKE X1+1,H8 
1640 RETURN 
1650 : 

16B0 : 

1670 : 

1680 A~PEEKtXl)+PEEKCXl+l)*e56 
1630 RETURN 
1300 : 

1310 : 

1360 : 

1330 X19i-””:REM SENZA SPAZIO IR 
A APICI 

1340 N1“INTCJ/1B> : GOSUB 1300 
1350 X1$-X1$+A$ 

1360 N1-J-1B»N1 : GOSUB 1380 
1370 XlS-X 1S>+A$ : RETURN 
1380 IF NI < 10 THEN AS-CHRS ( 4B+N1 
) : RETURN 

1390 AS-CHRSCSS+Nl) : RETURN 
1400 : 

1410 : 

1460 ; 

1430 PRINT: PRINT ■ PRINT 
1440 PRINT” NON CI SONO LINEE SA 
SIC SUFFICIENTI . * 

1450 PRINT” ECCO COME PUOI RISOL 
UER E IL PROBLEMA: 11 : PRINT 
1460 PRINT” - DIMINUENOO LA PRIM 
A LINEA DI DATA ; " 

1470 PRINT" - DI MINUENDO L * INCRE 
MENTO; " 

14B0 PRINT" - AUMENTANDO IL N, D 
I UALORI /LINEA ; " 

1490 FRINÌ" - USANDO L J ESADEC * C 
E * PIU* COMPATTO) . H 
1500 PRINT: PRINT 

1510 PRINT TAB 1 3 ) ; CHRSC 10 ) ; 11 PRE 
MI UN TASTO PER RICOMINCIAR 
E " 

1560 POKE 1 98 , 0 : Lf A I T 130,1: RUN 
1530 : 

1540 : 

1550 : 

1560 POKE B4tì , 4 : 5YSB5403 
1570 POKE 43, PEEKC653) : POKE 44 , P 
EEKC654) 

1580 LIST 
1590 : 

1600 REM FINE PROGRAMMA 
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ài Roberto Morissi 


COMMODORE 64 


Come aggiungere parametri "extra” 
al vitale comando Basic 


P er salvare su supporto magnetico 
(disco o nastro) dei blocchi di memo- 
ria diversa da] normale programma 
Basic, si ricorre in genere al la modifi- 
ca "manuale” dei puntatori di ini/io 
e tino programma, salvo rosetta rii al 
valore iniziale dopo il SAVE, (per ev i- 
tarc un Crash). 


questi verranno usati dal Save come 
puntatori di "servizio". 

latine, si passa ad eseguire il salva- 
taggio vero e proprio, vale a dire la 
lettura dei singoli byte compresi tra i 
due puntatori suddetti e il loro invio 
alla periferica 


Come utilizzare la routine 

Digitate il programma, salvatelo, 
poi date il RI N seguilo da SYS 6S0 
che ha il compito di attivare il 
Wedge. 

La nuova sintassi è: 


OLTRE IL BASIC 


Modifica del 
comando Save 


Un metodo meno macchinoso è 
quello di usare il comando che si 
trova normalmente nei monitor in 
L.M, e che. comunque, richiede il 
preventivo caricamento del monitor 
stesso. 

Qui proponiamo un metodo più 
semplice ed immediato: una breve 
routine in L.\L chiamata SAWEM. 
che modifica la sintassi del comando 
SAVE tramite linserimemo di un 
"Wedge" o intercettato re. 

Per comprenderne il funzionarne ri- 
to, vediamo in che modo il Sistema 


Quest ultima fase, come molle altre 
di input output (I/O), è “valorizza*' 
ta" prima di eseguirla, ne viene letta 
la locazione di inizio in un “vettore’ 
situato nei registri SIK-N19e che nor- 
malmente punta a Si 51 P (decimale 
62957). Essendo in RAM, questo vet- 
tore può essere modificalo in modo 
elle punti ad una nuova routine crea- 
ta da noi (Wedge). 

Come funziona 
la routine 
pubblicata 


5AYE"NOME".P.L INIZIO J- IN1I 

in cui "P ” è il numero della perii eri- 
ca (per semplicità ci riferiremo d’ora 
m poi all’unita a dischi, cioè: W) e “ri 
trizio' e "lì ne" sono rispettivamente i 
numeri del primo e del l'ultimo regi- 
stro del blocco di memoria da sal- 
va re, 

Per comodità. salveremo la pane in 
LM, dello stesso SAWEìM digitan- 
do: 

SAVFTSAWEM ; M6"X. 3 .6*0.7 5K 


Operativo del computer interpreta ed 
esegue un comando Save appena 
premiamo il tasto Return. 

Come ragiona 
il C/64 

Per prima cosa vengono acquisiti 
dal tesio. c conservati in apposite zo- 
ne di memoria, i vari parametri: no- 
me del file, numero di periferica, e- 
ve rituale indirizzo secondario. Poi 
vengono copiati il puntatore di inizio 
programma Basic (43-44) e quello di 
fine programma (45-46) nei registri 
193-394 e 174-175, rispettivamente: 


La routine SAWEM preleva da! testo 
il valore decimale del nuovo registro 
di ini/io-Savc, copiandolo (nella for- 
ma loVi byte-high byte) nei registri 
20-21. e infine lo copia da questi ulti- 
mi nei registri 193- 194 sostituendolo 
al valore di inizio programma Basic 
che vi era memorizzato. 

Con procedimento analogo viene 
prelevato il valore del nuovo registro 
di fine- Save e copiato, dopo averlo 
incrementato di L nei registri F4- 
175. Infine si salta ad eseguire il Save 
del nuovo blocco di memoria, previa 
visualizzazione di un messaggio di 

Ijì, K- 

controllo. 


Il display della scritta “SAWEM' in 
già Ho con fermerà che la routine fun- 
ziona regolanti ente. In seguilo potre- 
te richiamare la routine stessa con un 
semplice: 

LO A D "SÀWE M/M 6“,8 . 1 

ricordando di digitare, subito dopo, 
il consueto NEW per rimettere a po- 
sto i puntatori 

f inché avete il programma Basic in 
memoria conviene ri locare SAWEM 
in almeno altre due zone di memo- 
ria: potrete così utilizzare di volta in 
volta la versione che non si sovrap- 
pone al blocco di memoria che inten- 
dete salvare. 
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OLTRE IL BASIC 


La rìlocabilità 

La routine è interamente rilocabìle 
mediante la modifica di un solo pa- 
rametro, Indichiamo, qui di seguito, 
alcuni esempi dì rilocazioni: 

Per ri loca re SAWEM a partire dalla 
locazione 820 ($0334), sostituite "820 " 
al posto del "6H0" alla riga 290. Dopo 
il RUN date SYS820 e, se volete: 

Save"SAWEM/MtT,8, 1 ,820*898 

{si attiva, ovviamente, con SYS820) 

Per ri locare SAWEM a partire dalla 
locazione 49152 (SCODO): sostituite 
"49152” come locazione di partenza 
alia riga 290. Dopo il RUN date 
SYS49152: poi: 

SAVE SAW E M / M C ”, 8 , 1 ,49 1 52* 
49230 

{si attiva con SYS49152). 

Per disattivare il wedge, userete in o- 
gni caso la combinazione di tasti 
Ru n/Stop e Restare o il comando 
SYS654 18: entrambe le operazioni ri- 
pristinano tutti i v ettori dì I/O al va- 
lore iniziale. 

I blocchi di memoria salvati con 
SAWEM come file-programma pos- 
sono tornare utili in molti casi. Ne ci- 
tiamo due: 

( I ) u na schermata completa { in bassa 
risoluzione) si può salvare con: 

SAVE “ St :HERMO"&IJ 024,2023 

e ricaricare in memoria con LOAD 
"SCHERMO” 8,1. Naturalmente ven- 
gono salvati solo i caratteri e non i co- 
lori che appaiono sullo schermo: al 
momento del LOAD. i singoli carat- 
teri assumeranno il colore che è me- 
morizzalo in quel momento nella 
corrispondente locazione della ma- 
trice-colore. Per una schermata di co- 
lore uniforme, è opportuno cancella- 
le lo schermo prima di dare il 
LOAD, 

Furbescamente si potrà salvare an- 
che la zona contenente i mille byte 
della mappa colore presenti al mo- 
mento della registrazione della scher- 
mata. Al caricamento, come e intuiti- 
vo, si dovranno caricare* in rapida 
successione* i due file (schermo + 
colore). 


(2) una o più routine in L M., o bloc- 
chi dì dati-sprite. possono essere ri- 
chiamati direttamente in memoria 
all'inizio di un programma, anziché 
letti da una serie di DATA Basic. 

Leco come utilizzare questo meto- 
do per le famose routine grafiche di 
D, Toma (CCC n. 14): 

* caricate in memoria SAWEM/M6 
{LOAD "SAWEM /M6’\8. ! ) 

* date il NEW 

* caricate le routine grafiche (in Ba- 
sic) e date il RUN, Quando la lettura 
dei DATA è completata, digitate: 
POKE 49890*84: POKE 49891,79: 
POKE 49892,77 

Questi sono i codici corrispondenti 
ai caratteri T-Q-M* e serviranno co- 
me "impronta digitale” per ricono- 
scere se le routine grafiche sono già 
iti memoria oppure no. 

* attivate SAWEM con SYS 680, poi 
salvate il blocco di memoria con 

SAVE'G RAF/M 1 ,491 52.5 1 1 63 

A questo punto non sarà più neces- 
sario che le routine grafiche vengano 
caricate c attivate prima dei relativi 
programmi che ne fanno uso: basterà 
inserire in questi ultimi le seguenti ri- 
ghe iniziali: 

10 IF PEEK{49890) = $4 AND PEEK 
(49891 ) = 79 AND PEEK(49892) = 77 
THEN 30 

20 LOAD “C RAF/M” 8,1 
30 SYS 51000: SYS 49274 
40 

Con il metodo descritto le routine 
grafiche verranno richiamate da di- 
sco (e attivate) una sola volta, dal pri- 
mo programma che le utilizza: even- 
tuali programmi successivi partiran- 
no senza ripetere il caricamento. 

Il programma di queste pagine (col 
nome: Esempio) è un altro trucco - 
suggerimento per caricare, sotto pro- 
gramma* più schermate precedente- 
mente registrate. Dovrebbe esser no- 
to, infatti, che quando, da program- 
ma, si carica un secondo program- 
ma, ^'esecuzione riparte dalla prima 
riga Basic. 

Ecco spiegata, quindi, la presenza 
di IF...THEN relativa alfcsame di u- 
na locazione di memoria (e non di u- 
na variabile numerica) che. opportu- 
namente manipolata, consente di 


saltare, o meno, a diversi punti del 
programma che. a sua volta, richia- 
ma altri programmi. 

L’altra forma sintattica 

La seconda routine che proponia- 
mo (SAWEP) permette, tramite un 
"wedge" analogo al precedente, di 
salvare partì dì un programma Basic 
(come, ad esempio, gruppi dì DATA, 
subroutine eccetera) come se fossero 
programmi ìndipendenti, che potrete 
eventualmente agganciare o incor- 
porare ad altri programmi con i vari 
APPENDO MERGE. 

Dopo aver messo SAWEP in me- 
moria. a partire dalla locazione 820 
(anche SAWEP. comunque, è riloca- 
bile senza modifiche), caricate o digi- 
tate il programma da cui volete fi- 
at rarre i soitoprogrammi. 

Attivate SAWEP con SYS820. ed u- 
sate la sintassi: 

SAVE w SUBFILE".8d PiGÀ 1 JUGA2 

per salvare col nome SUBF1LE la 
porzione di programma dalla riga 1 
(compresa) alla riga 2 (esclusa). 
Esempio: 

S AVE" SU B FI L E” 8 , 1 . 1 50*289 

Se volete salvare la parte terminale 
del programma, dovrete inserire una 
riga provvisoria con numero più alto, 
da usare come "riga 2'\ Se i numeri di 
riga che indicate non sì trovano nel 
programma, verranno usati automa- 
ticamente (come per il LIST) quelli 
delle righe immediatamente succes- 
sive, 

SAWEP utilizza la routine 5A613 
delfinterprete per cercare le locazio- 
ni di memoria corrispondenti ai nu- 
meri di linea indicati. 

Il SURFILE da salvare deve essere 
però "chiuso” correttamente, inse- 
rendo degli "zero” al posto dei due 
byte di "link" della riga 2: per evitare 
che il programma principale riman- 
ga troncato a quel punto, e quindi i- 
nutilizzabìle. SAWEP inserisce per- 
tanto, in modo automatico, anche un 
secondo “wedge” nella routine di 
warm -start, che provvede, una volta 
ultimato il Save, a ripristinare il 
"link” della riga 2. 
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OLTRE IL BASIC 


10 REM SAWEP 

30 REM BY ROBERTO MURASSI 

Hid rem pistuia 

I3fc3 KLH ♦•♦♦♦^** j| * 1 **^**** ** 

140 rem sys 920 

150 REM ABILITA tiiEUGE 

160 REM SAUE"FILE" ,tì, 1 .LINEI , LI 
NE2 

170 REM **•*******«•*•«»*♦* 

190 DATA 165,20,24, 105, lb, 141, 
50, 3, 165 

£00 DATA £1,105,0,141,51,3,35, 
1/3,50 

210 DAI fi 3 , £4 , 105 , 117, 141,0,3, 
173,51 , 3 

220 DATA 105 ,0,141,1,3, 39 , 263 , 
174,32 

£30 DATA 107, 169,32, 19, lbb, 165 
,35,133 

240 DATA 133, lbS,3b, 133, 154,32 
,£53,174 

250 DATA 32, 107, 153,32, 13, lbb, 
160,0, 177 

260 DATA 95, 133,251, lbb, 35, 133 
,253,165 

270 DATA 96,133,254,152,145,96 
, 230 , 95 

290 DATA 209,2,230,96,177,35,1 
33 , 252 

290 DATA 152,145,35,230,95,209 
, 2 , 230 

300 DATA 96, lbb, 35, 133, 174, 165 
,96, 133 

310 DATA 175,173,50,3,24,105,1 
10 , 133 , 34 

320 DATA 173,51,3,105,0,133,35 

, IBS, 7 

330 DATA 32,36,171,76,237,245, 
159,93,65 

340 DATA 97,69,90,154,32,93,22 
9,32, 139,255 

350 DATA 160,0, lbb, 251, 145,253 
,200, 165 

360 DATA 252,145,253,76,134,22 
7 

370 A-0 : FQR X-0 TU 152: READ Y:F 
OKE B20+X, Y:A-A+Y:N£XT 

390 IF A<> 17745 THEN FRINÌ "ERRO 
RE NEI DATA" 

390 END 


10 

20 

30 

40 

50 

120 

130 

140 

150 

160 

170 

1 B0 

190 

200 

210 

220 

230 

240 

250 


RED SAWEH 

■ 

KEPI BY ROBEKTD MURASSI 
REM PISTOIA 


270 

290 

290 

300 

310 

320 


RLH #*»♦******►»** 

REM 9Y5 600 

REM ABILITA WED13E 

REM 5AUE”F1LE , \6,1, START, EN 

D 

Kìlfl ***** ******** 

DATA 165,20,24,105,16,141, 
50,3,165 

DATA 21,105,0,141,51,3,96, 
32,253 

DATA 174,32,107,163,165,20 
, 164,21 

DATA 133,193,132,194,32,25 
3 , 174,32 

DATA 107, 169, lb6, 20, 164,21 
, 232 , 209 

DATA 1,200,134,174,132,175 
,173,50 

DATA 3,24,105,55,133,34,17 
3,51,3 

DATA 105,0,133,35,169,7,32 
,36, 171 

DATA 76,237,245, 15B, 83, 65, 

97,69,77 

HATA 154 \A 

A-0:FQR X-0 TU 79: REAU Y : PO 
KE 6B0+X, Y : A-A+Y : NEXI 
IF fi<> 9032 THEN PHINT'‘ERROK 
E NEI DATA" 

END 


100 REM ESEMPIO D’USO 
110 REM PER CARICARE 
120 REM PIU' SCHERMATE 
130 REM IN 5UCCESSIUNE 
140 : 

150 IF PEEKC.b79) THEN FUKE 679, 
0 

160 1NFUI "DUALE FILE-SCHERMATA 
’’ ; QFS 

170 PGKE 679 , 1 : LDAD UFI ,8,1 
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OROSCOPO 





LA VOCE HI 


Fia panare e cantare ;l Ctì4 
seconde come lo prò 
grammi senza l'uso dì 
campionatori nò sintoiiz 
zatori 

Tutte ie parole o le canno- 
ni cosi' prodotte possono 
essere nsonie come sirin- 
ghe in alte progr amma 

Lire 12.000 


RAFFAELLO 

Un programma pe r dise 
gnare coi tuo Gomodore 
64 col seno toyalicK senza 
Koala né tavoletta grafi 

ca 

Tulli i disegni prodotti 
possono essere memo- 
rizzati ad ut» ì zzali m altri 
program itm 

Lire T 0-000 


Fa in maniera scisnliLca 
l'oroscopo personale li 
pm complete programma 
aslroiogico oer Commo- 
dore 64 


Lire 12 000 


COMPUTER 

MUSIC 

Un music-edrtOf avanzato 
pm per yn programma. 
puke-OO* con 27 menivi 
celebri di rnusicaCJAssica 
e leggera da Arcadia a 
Bach Vivaldi. Zeppelin 

Lire 12.000 


GESTIONE 

familiare 

Tre programmi su cas sol- 
fa òhe pinzali ideano ag 
gettivo "dOfnwliM" del 
lud computer 

* bilàncio familiare. 

* dieta equilibrata, 

* Scheda medica Tarn 
Mare 

Gira SU G'64/ i?e 

Lire 12,000 




BANCA DATI 


Un potente dà!a basrn per 
C/64 e Speclr um d?spo- 
mbiic anche su disco, 
.'edizione cu cassetta 
cor 1 !' cri e da un lato la ver 
siane C64 e osi l'altro la 
versione Spectrum 

Lire 12,000 




DICHIARAZIONE 
DEI REDDITI 
<740/S> 

Programma aggiornato al 
1966 pei ia dichiarazione 
dei redditi, modeuo setn ■ 
plificato Per C64. 

Disco: Lire 20,000 
Cassetta Lire 1 2.000 


MATEMATICA 

FINANZIARIA 

Pubblicato a puniate su 
Commodore ;n.h 13, 14 e 
15) e su Personali Com- 
puter (n. ri 1 r 2„ 3 e 4f que- 
sto programma oltre un 
vaio e proprio corso com 
pioto d" ragioneria su 
Commodore fi4 
Se ne consiglia l'acquisto 
insieme agli arretrati della 
rivinte Che ne illustrane 
'uso ad il funzionamento. 

Disco: lire 20-606 
Cassetta lire IO, ODO 

Comodare 13. 14 e 1 5 e 
Personal Computer l, 2 . 
3 

Lire 21.000 


ANALISI 
DI BILANCIO 

Maturale completamento 
di "Matematica Finanzia- 
ria" questo programma 
condente di calcolare au 

I ornati cam&nte tu.it! ratio 
più significativi e di con- 
frontare due bilanci della 
stesso ente. 

II testo esplicativo è stato 
pubblicato su Personal 
Computer n.ri 2, 3, 4 e S 
ohe si consiglia di acqui- 
sta re cùntem por adè ta- 
rn ente, 

Disco: Lire 20.000 
Cassetta Lire 10,000 

Personal Computer 2, 3, 

e 5 Lire 12,000 


ARREDARE 

Un programma ptofes- 
s igeate per ottimizzare le 
soluzioni d 'arredamento 
della vostra casa. 

N,B, gira sete sotto Si 
mon's Basic, 

Disco Lire 20.000 
Cassetta Uro 10.600 


GRAPHIC 
ESPANDER 126 

Un polente programma 
gralico per il c 1 20 m mo- 
do 120. 

Lire 27.000 
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INTELLIGENZA ARTIFICIALE 


C 64 

Un mondo 
di cubi colorati 


Simuliamo, con il computer , elementari 

esperienze di logica 


dì Sandro Ceni & Franco 'Iòidi 



T_Jn bambino gioca con i suoi cubi 
colorali sul parquet della sua stanza. 

Possiede solo quattro cubi: uno ros- 
so. uno giallo, uno verde e uno blu, 
sparsi sui pavimento: il bimbo inizia 
a mettere quella giallo sopra quello 
rosso. 

L’equilibi io è precario, ma alla ime 
stanno in piedi. Poi impila su quello 
giallo anche quello blu,.. Sorride sod- 
disfatto: il suo obiettivo è stato 
raggiunto. 

Poi, si sa. il bambino è curioso c in- 
ventivo: vorrebbe vedere che effetto 
la un cubo rosso sopra quello verdc. 

I] cubo verde è lìbero sul pavimen- 
to, ma quello rosso è sovrastato da 
quello giallo e, ancora sopra, da quel- 
lo blu. 

Naturalmente la tentazione è di di- 
struggere la pila,,, 

il contenuto educativo della mani- 
polazione dei cubicolorati risulta va- 
lido proprio perché gradualmente il 
bambino impara una procedura 
sempre meno distruttiva. 

Prende il cubo blu dalla pila e lo 
mette sul pavimento. Poi fa altrettan- 
to con il cubo giallo. Ora il cubo ros- 
so non è più sovrastato da altri cubi. 
Il bimbo lo prende e lo mette sopra il 
cubo verde. Obiettivo raggiunto... 

In sostanza, nel suo mondo dei cu- 
bi colorati, il bambino ha introdotto 
una regola: prima di afferrare un cu- 
bo. per spostarlo dalla sua posizione 
originaria, occorre fare in modo che 
la sua sommità sia libera, cioè che 
nessun altro cubo sia appoggiato so- 
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pra. Se invece ciò non si verifica, allo- 
ra è bene rimuovere dapprima il cu- 
bo superiore e poi afferrare quello 
voluto. 

Semplice, vero? 

Certamente semplice e molto i- 
sinittivo. 

11 valore formativo del gioco dei cu- 
bi colorati consiste nel fatto che il 
bambino inizia ad operare fissando- 
si degli obiettivi, Poi, nel realizzarli, 
si accorge che il suo obiettivo ha delle 
precondizioni che devono essere a 
loro volta realizzate; sono questi gli 
stadi intermedi di un processo com- 
plesso che porterà alla realizzazione 
dell'obiettivo originale prefissato. 

SHRDLU: un programma 
intelligente 

Nei primi anni settanta Terry Wi- 
nograd, ricercatore di A/I (Intelligen- 
za Artificiale) al MIT (Massachusetts 
Institutc of Technology), presentò un 
programma intelligente che manipo- 
lava in modo automatico un mondo 
immaginario di figure geometriche 
{cubi, piramidi, cilindri) in uno spa- 
zio delimitato secondo il metodo del- 
la pianificazione decisionale finaliz- 
zata ad un obiettivo. 

Il nome del programma, forse biz- 
zarro „ era SHRDLU, una successio- 
ne delle lettere del l’alfabeto inglese, 
dalla settima alla dodicesima, in or- 
dine di frequenza decrescente. 

L’utente del programma indica una 
certa disposizione finale da realizza- 
re ed il computer, rispettando alcune 
semplici regole, esegue tutte le opera- 
zioni necessarie per realizzane la di- 
sposizione richiesta. 

Naturalmente, come il bimbo che 
abbiamo osservato prima, non si li- 
mita a distruggere la disposizione di 
partenza e a costruire quella finale, 
ma muove tutti i pezzi necessari fino 
a trasformare la disposizione di par- 
tenza in quella richiesta. 

Se, ad esempio, dovesse eseguire il 
desiderio del bimbo che abbiamo se- 
guito precedentemente, cioè di mette- 
re il cubo rosso (che è sovrastato da 
quello giallo e da quello blu) su quel- 
lo verde, seguirebbe esattamente 
questa procedura: 


* sopra il cubo rosso c*è un altro cubo? 

* si: quello giallo 

* sopra il cubo giallo c r è qualcosa? 

* si: quello blu 

* sopra il cubo blu c'è qualcosa? 

4 no: allora posso prendere il cubo blu e 
spostarlo 

* sopra il cubo giallo c'è qualcosa? 

* no: allora posso prendere il cubo giallo 
e spostarlo 

* sopra il cubo rosso c'è qualcosa? 

* no: allora posso prenderlo e spostarlo 

* dove? sopra il cubo verde 

* sul cubo verde c'è qualcosa? 

* no: allora posso mettervi sopra quello 

rosso * 

* obiettivo finale realizzato 

Come si vede la procedura è meno 
semplice di quanto ci si aspetta: è 
composta di numerose verifiche e di 
spostamenti successivi che l u tenie, 
nel richiedere di mettere il cubo rosso 
sopra quello verde, non aveva certo 
indicato nei dettagli al computer. 
Ricevuto il comando dall’utente, il 
computer esamina la situazione dì 
partenza c determina un piano dì 
successive azioni che permetteranno 
di realizzare da disposizione richie- 
sta. 

IT questo un caso tipico di Pianifi- 
cazione decisionale con concatena- 
zione a ritroso (baehward eh ai ni ng). 
Nel caso semplice del mondo dei 
cubi le azioni possibili sono soltan- 
to due. 

La prima è: liberare la sommità di 
un cubo. Questa azione ha due pre- 
condizioni per essere eseguibile: il 
cubo da liberare deve essere sovra- 
stato da un altro cubo; questo secon- 
do cubo deve essere libero, cioè non 
sovrastato da nulla. 

La seconda azione è: mettere un cu- 
bo sopra un altro. Anche questa azio- 
ne ha due precondizioni per essere e- 
seguibile: il primo cubo deve essere 
libero per poterlo muovere: anche il 
secondo cubo deve essere libero per 
ricevere sopra di esso il primo cubo. 
Ricevendo Lordine dì mettere il cu- 
bo X sopra il cubo Y il computer sì 
predispone a eseguire Fazione corri- 
spondente: ne verifica per prima co- 
sa le precondizioni (sia X che Y devo- 
no essere liberi) se sono realizzate, e- 
segue fazione “metto il cubo X su 
quello Y”: altrimenti, attraverso azio- 
ni di tipo "libera", libererà la sommi- 
tà dei cubi X e Y (o q uello che non era 


lìbero) finche le precondizioni per 
l’azione “metti” non siano verificate. 
Solo a questo punto il computer ese- 
gue fazione che permetterà di realiz- 
zare la disposizione richiesta dal- 
l’utente. 


Il mondo dei cubi colorali 

Il programma che presentiamo si 
fonda sui concetti che abbiamo 
esposto. 

Consiste di semplici routine il cui 
richiamo appropriato viene governa- 
to dalla routine principale (linee 100- 
240) detta “supervisore”. 

Prima di analizzare in dettaglio le 
singole routine anticipiamo qualche 
informazione utile per il lettore. 

Lanciato il programma, compaio- 
no immediatamente le istruzioni che 
comunque potranno essere richia- 
mate in ogni momento immettendo 
in input la siringa ISTRUZIONI. 

Il mondo dei cubi colorati manipo- 
la, su una traccia di piano compren- 
dente sei posizioni orizzontali, la di- 
sposizione di quattro cubi colorati 
secondo i comandi ricevuti in in- 
put dall utente. 

1 comandi disponibili sono: 

GENERA 

questo comando genera, appunto, 
una disposizione casuale dei quattro 
cubi lungo le sei posizioni della trac- 
cia di piano. All'inizio, ovviamente, 
ogni cubo occupa una posizione e 
nessun cubo è sovrastato da un 
altro cubo. 

LIBERA IL CUBO XXX 
(esempio: libera il cubo verde); il co- 
mando, da usarsi con questo formato 
esatto (altri menti il programma se- 
gnala COMANDO SCORRETTO e 
richiede un nuovo input), libera il cu- 
bo XXX da ogni eventuale cubo che 
sia appoggiato alla sua sommità, 
spostando il cubo sovrastante in una 
posizione libera della traccia di 
piano, 

METTI IL CUBO XXX SU QUELLO 
YYY 

(esempio: inetti il cubo rosso su quel- 
lo giallo): anche questo comando, co- 
me tutti gli alto, deve essere usato nel 
preciso formato indicato. A partire 
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dulia disposi/ ione rituale che lo 
schermo visualizza, questo comando 
sposta il cubo XXX e lo mette al di so* 
pra di quello YYY, naturai mente ve- 
rificando o realizza ndo le preeondi- 
/ io ni necessarie all'azione di tipo 
“metti”. 

Tutti i comandi vengono eseguili 
dopo ché il programma ha esposto c- 
spli diamente sullo schermo il piano 
di azione che ha scelto per realizzare 
il comando stesso. A questo punto 
sollecita l’utente con BAITI UN TA- 
STO. Ottenuto tl via. il programma e- 
videnzicrà la nuova disposizione ot- 
tenula e si predisporrà per un nuo- 
vo comando. 

Suggeriamo all ine me di provare 


con pazienza molte operazioni, da 
diverse disposizioni di partenza, per 
apprezzare bene le capacità del pro- 
gramma anche nei casi limite, 

[J mondo dei cubi colorati, a dispet- 
to della sua brevità, è un programma 
che ha una discreta funzione didatti- 
ca per sperimentare la realizzazione 
di programmi (più) intelligenti... 

I jz routine 

Seguiamo ora il listato del program- 
ma. 

La routine supervisore (lince 100- 
240) richiamando le oppummé rouib 
ne. inizi a! izza il programma; genera 


e visualizza la prima disposizione 
dei cubi colorati; riceve in input il co- 
mando ddTu tenie e io analizza: i- 
dentificando con P$< I ) la prima pa- 
nda di cui è composta la frase* 
comando, richiama hi routine dei co- 
mando richiesto; lo esegue, visualiz- 
za la disposi/ione ottenuta e si predi- 
spone ad un nuovo comando. 

La routine iniziai izza/ io ne (250- 
331)), che sarà eseguita una sola volta 
al lancio del programma, dimensio- 
na una matrice MS con indici 5 e f>. 
Sei, infatti, sono le posizioni possibili 
sulla traccia di piano in cui saranno 
disposti ì cubi; mentre per poter ma- 
nipolare anche le situazioni in cui 
lutti i quattro cubi sono sovrapposti 
in una unica pila occorrono non 
quattro ma cinque indici che rappre- 
senteranno le posizioni verticali. 

La matrice MS costituisce la rap- 
presentazione che il computer ha 
della disposizione dei cubi colorati 
in ogni momento e in essa avverran- 
no gli spostamenti di manipolazione 
dei cubi. 

Nella routine vengono anche deter- 
minate le stringhe rappresenta li ve 
dei quattro cubi colorali (sono sem- 
plicemente dei quadrati colorati) e di 
una stringa V$ che rappresenta una 
posizione non occupata. 

La formai izza/ io ne di V*. in analo- 
gia con le stringhe rappresentative 
dei cubi colorati, è stata scelta, per co- 
modità di visualizzazione, come un 
quadrato colorato in bianco cioè del 
colore de! fondo dello schermo. 

La routine “Genera” (340-500) 
riempie dapprima tutta "la matrice 
con la siringa rappresentativa della 
posizione non occupata, cioè VS; 
successiva me lite dispone in modo 
casuale le quattro siringhe rappre- 
sentative dei quattro cubi colorati 
lungo le posizioni inferiori della ma- 
trice, verificando che ogni stringa 
rappresentativa di un cubo coloralo 
sia collocata in una posizione non 
occupata. 

La routine di visualizzazione (510* 
fiGO) scrìve semplicemente sullo 
schermo le stringhe di cui è compo- 
sta la matrice* 

Viene anche visualizzala la traccia 


30 - Commodore Computer Club 




INTELLIGENZA ARTIFICIALE 


di piarlo su cui sono appoggiaci i cubi 
e numerate le relative posizioni. 

La routine di input (610-690) com- 
pie due operazioni: riceve linput dei- 
fu ten le contenente la frase-coma ndo 
c la scinde nelle singole parole di cui 
è costituita, 11 ciclo (650-680) scorre, 
carattere per carattere, l'intera strin- 
ga di input alla ricerca del carattere 
SPAZIO, che separa Ira di loro le sin- 
gole parole. Le sottostri ugh e così ot- 
tenute vengono immesse in un vetto- 
re P5(P) in cui l’indice P indica lor- 
dine con cui le parole compaiono 
nella fra se -co ma ndo. Da ora in poi 
P$(l) sarà dunque una sottostriiìga 
della stringa input, capace di indivi- 
duare il tipo di comando richiesto 
dall'utente (METTI* LIBERA GE- 
NERA oppure ISTRUZIONI). 

Infatti il supervisore a questo pun- 
to. controllando PS(1) richiama la 
routine capace di eseguire il coman- 
do richiesto dal Intente (linee 1 70- 
210 ). 

Il programma utilizza due routine 
di servizio (lince 1130-1190 e 1400- 
1430). La prima serve a individuare 
per ogni stringa rappresentativa dei 
disegno del quadrato colorato la cor- 
rispondente stringa in caratteri scrit- 
ti: se in matrice è conservata Cl$, al- 
lora nella comunicazione scritta con 
l'utente U programma utilizzerà la 
stringa ROSSO; e così via. 

La seconda routine di servizio con- 
trolla, attraverso il valore che attri- 
buisce alla variabile OK. che i co- 
mandi dell'utente riguardino soltan- 
to i colori dei cubi previsti dal pro- 
gramma, Se l'utente pretendesse dì 
manipolare un cubo ad esempio 
MARRONE, allora la variabile OK 
resterebbe al valore zero e compari- 
rebbe il segnale COMANDO SCOR- 
RETTO. 

Veniamo ora alle due routine più 
importanti, quelle realizzati ve dei 
comandi di tipo LIBERÀ c di tipo 
METTE 

La routine LIBERA (700-980) per 
prima cosa individua il colore del cu- 
bo che deve essere liberato. ]] colore 
sarà rappresentato dalla quarta pa- 
rola di cui è costituita la frase- 
comando (LIBERA IL CUBO XXX) 


e conservato in P${4). 

Ad ogni valore di P$(4) corrispon- 
derà nella matrice MS la stringa rap- 
presentativa che viene individuata 
nelle linee 730-760. 



Le linee 770-820 scorrono il conte- 
nuto della matrice M$ allo scopo di 
individuare la posizione in cui è con- 
servata la stringa rappresentativa del 
cubo oggetto del comando. Non ven- 
gono usate le istruzioni FOR...NEXT 
per non rischiare di lasciare aperto 
pericolosamente il ciclo. Una volta 
individuata la posizione cercata, i va- 
lori ìndice vengono conservati nelle 
variabili R e S, 

A questo punto il programma esa- 
mina le precondizioni per poter ese- 
guire razione di tipo UBERA cioè 
se il cubo in oggetto sia o meno sovra- 
stato da un altro cubo. Viene dunque 
valutata la posizione della matrice 
MS caratterizzata dagli indici R+l 
e 3. 

Se in posizione (R-f-l,S) nella ma- 
trice si trova la stringa VS rappresen- 
tativa di ima posizione non aecupata 
allora in programma comunica NON 
CE NULLA SUL CUBO XXX e re- 
stituisce il controllo al supervisore. 
Se invece in (RE 1,3) si trova una 
stringa rappresentativa di un cubo 
colorato, allora occorrerà muoverlo 
in una posizione libera della traccia 
di pia no e immettere al suo posto nel- 
la matrice la stringa VS* rappresenta- 
tiva di una posizione non occupata 
(linee 900-960), 

La condizione per muoverlo è na- 
turalmente che quest ultimo cubo sia 


a sua volta libero, dunque la routine 
funziona in semplice modo ricorsivo 
governato attraverso il valore della 
variabile K nelle linee 870-880, 

La routine LIBERA opera però in 
due diverse condizioni. O per esegui- 
re direttamente un comando di tipo 
LIBERA fornito dall’utente; oppure 
come precondizione per una azione 
di tipo METTE 

Abbiamo infatti visto che per ese- 
guire il comando METI1 IL CUBO 
XXX SU QUELLO YYY occorre che 
il cubo XXX venga liberato per poter- 
lo prendere e spostare sopra il cubo 
YYY, che a sua volta deve essere 
libero* 

La variabile F indica alla routine 
LIBERA se essa viene richiamata di- 
rettamente dal supervisore o dalla 
mutine METTI. Ora sarà semplice 
vedere la funzione della linea 8511 che 
viene eseguita soltanto quando si 
tratta di liberare un cubo come p re- 
co adizione per metterlo su di un 
altro. 

La routine METTI (linee 990-1120) 
appare sicuramente di più facile 
comprensione, 

II cubo XXX del comando di tipo 
MI NI sarà rappresentato dalla 
stringa PS(4) mentre quello YYY da 
PS{7). Entrambe le stringhe vengono 
controllate attraverso la routine di 
servizio (GOSUB 1400). 

La routine METTI individua il cu- 
bo XXX e* attraverso il richiamo del- 
la routine LIBERA verifica o realiz- 
za le precondizioni per muoverlo; 
successivamente individua it cubo 
YYY e, sempre attraverso la routine 
LIBERA, verifica o realizza le pre- 
condizionì perchè possa essere sor* 
montato dal cubo XXX, La prima 
volta la routine LIBERA viene ri- 
chiamata a partire dalla linea 730, la 
seconda a partire dalla linea 720. 

A questo punto nella matrice MS 
vengono realizzati gli opportuni spo- 
stamenti di posizione delle stringhe 
rappresentative dei cubo colorati e 
delle posizioni che diventano non 
occupate: poi il controllo viene resti- 
tuito al supervisore che visualizzerà 
la nuova disposizione del mondo dei 
cubo colorati. 
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100 REO IL nONOQ DEI CUBI 

110 REH SUPERVISORE 

150 GOSUB 550: REH 1N1ZIALI22A 

130 GOSUB 1500: REH ISTRUZIONI 
140 GOSUB 340: REH GENERA 
150 GOSUB 510; REH UISUAL122A 
160 GOSUB 610: REH INPUT E RICO 
NOSCE CONANDI 

170 IF PSC 1 )“ "GENERA” THEN GOSU 
B 340 

100 IF PSC 13- "LIBERA” THEN GOSU 
B 700 

130 IF P$C1)=”HETTI” THEN GOSUB 
330 

E00 IF PStn»” ISTRUZIONI" THEN 
GOSUB 1500 

210 IF PSC 11-”” THEN END 
550 PRI NT "BATTI UN TASTO” 

530 GET X$ : I F XS-” " THEN 530 

540 GOTO 150 

550 REH INI ZI AL IZZA 

560 POKE 53581,1 : POKE 53580, 1:P 
RINT”CCLEAR3LBLEU3“ 

570 DIH HSC5.6) 

580 CIS*” C R0SS03CRUS3I E DOWN] C 5 
1 FFTIt r RUOFF3CELEU3 ’* : REH 

ROSSO 

530 C5$-”CGIALLQ3CRUS3I E DOUÌN3C 

5 LEFT3I C RVOFF3CELEU3 ” : REH 

GIALLO 

300 C3S— "CVERDE3CRVS3I EDOUM3 C5 

LEFT31 f RUOFF3 C BLEU3 ” : REH 

VERDE 

310 C4$“ ”C BLEU3 CRV53I EDOU1N3C5 
LEFT3l_ERVOFF:[ELEU3” : REH 
BLU 

350 US- ”C B I ANC03 [ RUS3 COOUN3C5 
LEFT3 [RUSJCBLEU3 ”: REM V 
UOTO 

330 RETURN 

340 REH GENERA UNA SITUAZIONE 
NUOUA 

350 FOR X=1 TO 5 
360 FOR Y-l TO 6 


370 MSC X , Y 3 “US 
380 NEXT : NEXT 

330 Yl-INTCRNQC 1 )*63 + 1 
400 Y5-INTCRNDC13+63+1 

410 IF YS-Y1 THEN 400 
450 Y3- INT C RNOC 1 )*5) +1 
430 IF Y3-Y5 OR Y3-Y1 THEN 450 
440 Y4- INT CRNOC 1 )*6)+l 
450 IF Y4-Y3 OR Y4-Y5 OR Y4-Y1 
THEN 440 

460 OSCI , Y13-C1S 
470 MSC1,Y5)-C5$ 

4B0 MSC1 , Y33-C3S 
430 M$C1,Y4)-C4$ 

500 RETURN 

510 REH VISUALIZZA IL HONDO DE 

I CUBI 

550 FR I NT 11 C CLEAR 3 ” 

530 FOR X-5 TO 1 STEP -1 
540 PRINT TABCB) ; 

550 FOR Y-l TO 6 

560 PRINTMSCX , Y> ; "CUP3CE RIGHT3 

II - 

570 NEXT: PRINT: PRINT 

580 NEXT: PRINT TABCB)” 


530 PRINT TABCB)” 1534 
5 6” 

600 RETURN 

610 REH INPUT E INDIVIDUA COHA 
NO I 

650 PRINT: I$”” n :KK=l: P“0: F-0 
630 FOR X-l TO 3:P$CX)-”’ J : NEXT 
640 INPUT 1$: IS-IS+" ” 

650 FOR SP-KK TO LENCIS) 

660 IF P>9 THEN 680 
670 IF HI DSC I S , 5P , 1)-” ” THEN P 
-P+l : PS CP ) -H I DSC 1$, KK, SP-KK 
) : KK— SP+1 

680 NEXT: PRINT 
630 RETURN 
700 REH LIBERA 
710 PS-PSC4) 

750 A-4:60SUB 1400: IF OK-0 THEN 
PRINT "COHANDO SCORRETTO” : G 
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DIO 980 

730 IF PS- "ROSSO” THEN CXS-C1S 
740 IF F$- "Gl ALLO ” THEN CXS-C5S 
750 IF PS- "UERDE ” THEN CXS-C3S 
7B0 IF PS- "BLU” THEN CXS-C4S 
770 X-S 
780 Y“1 

780 IF MSCX, Y>~CXS THEN B30 
800 IF Y<5 THEN Y“Y+l:GOTO 780 
810 IF X>1 THEN X-X-l ; GOTO 780 
820 PR I NT "NON TROUO IL CUEO":GO 
TO S60 
830 P-X : S-Y 

840 IF MSCR+1 , S)-US THEN PR1NT" 
NON C ’ E NULLA SUL CUBO " ; : A 
S-MSCR.S) :GOSUB 1130 
850 IF NSCR+1 , S>-U$ AND F— 1 IH 
EN PRIMT”LD PRENDO” 

850 IF nSCR+l t S)-U£ THEN 9B0 
870 IF MSCR+5 , S)-US THEN K-l:GO 
TO 890 

880 K-3 : I F MSCR+3, S>-U$ THEN K- 
E 

880 FOR J-K TO 1 STEP -1 

900 PR I NT "DEUO MUOUERE IL CUBO 
» . 

310 AS-MSC R+ J , S ) : GOSUB 1130 
950 fIN- INT £ RNDC 1 1*61+1 
930 IF M$C1,MNX>US THEN 9E0 
940 PR INT "LO PRENDO E LO nUOUO 
IN ";MN 

950 MSCl.MNJ-MSCR+J, SJ : MSCR+J,S 
)-U$ 

950 NEXT 
970 GOTO 840 
980 RETURN 
890 REM METTI 

1000 A-4: GOSUB 1400: IF OK-0 THEN 
PR INT" COMANDO SCORRETTO ” : G 
□TO 1150 

1010 A-7 : GOSUB 1400; IF OK-0 THEN 
PR INT "COMANDO SCORRETTO" :G 
OTO 1150 

1050 F— 1:P$-P$<4) 

1030 GOSUB 730: T-R: U-S: CCS-MSCT , 
U) : MSCR.Sl-US 
1040 PS-PSC?) 

1050 F-0: GOSUB 750 
10B0 PRINT”MUOUO IL CUBO 
1070 AS-CCS: GOSUB 1130 


1080 PRINT”SU QUELLO ” ; 

1090 AS-MSCR.S) : GOSUB 1130 
1100 MS C T , U) -US 
1110 MSCR+1 .SJ-CCS 
1150 RETURN 

1130 REM COLORI SCRITTI 

1140 IF AS-C1S THEN FRINT"ROSSQ" 

1150 IF AS-C5S THEN PRINT"GIALLa 

U 

1160 IF AS-C3S THEN PR1NT "UERDE” 

1170 IF AS-C4S THEN PRINT"BLU” 

11B0 AS-’’" 

1190 RETURN 

1500 REM ISTRUZIONI 

1510 PRINT'^CLEAR]" 

1550 FRI NT" IL MONDD DEI CUBI” 
1530 PRINT: PRINT"QUATTRD CUBI CO 
LORATI UENGONO SPOSTATI ” 
1540 PRINT” IN UN PIANO COSTI TU IT 
0 DI SEI CASELLE” 

1550 PRINT "SECONDO COMANDI IMPAR 
T ITI E REGOLE CHE” 

1560 PRINT” IL COMPUTER UERIFICA 
AUTOMATICAMENTE. ” 

1570 PRINT”IL PROGRAMMA POSSIEDE 
TRE ISTRUZIONI DA” 

1580 PR I NT"USARSI NEL PRECISO FO 
RMATO SEGUENTE: ”: PRINT: PR IN 
T"CRUS3 ISTRUZIONI " : PRINT 
1530 PRINT”CRUS1 GENERA” 

1300 PRINT "GENERA UNA NUOUA SITO 
AZIONE DISPONENDO A CASO I 
CUBI NEL PIANO.” 

1310 PRINT; PRINT"CRUS3LIBERA” 
1350 PRINT ”ES : LIBERA IL CUBO XX 
X” 

1330 PRINT: PRINT”CRUS]METTI ” 

1340 FRINT”ES: METTI IL CUBO BLU 
SU DUELLO ROSSO" 

1350 IF XX— 1 THEN 1390 

13B0 PRINT: PRINT "BATTI UN TASTO" 

1370 SET X$ : I F XS-*'” THEN 1370 

1380 XX— 1 

1390 RETURN 

1400 REM CONTROLLO 

1410 GK-0 

1450 IF PS CAI — "ROSSO” OR PS CAI - ” 
GIALLO" OR PS C A) -"UERDE” OR 
PSC A )- "BLU ” THEN DK-1 
1430 RETURN 


Commodore Computer Club - 33 





lAMMmE’sme 


VELOCISSIMO 
BASIC 

per C64/128, CJ6 & 
Plus 4, MSX e Spec- 
tmm. 

Corso completo in 
13 lezioni su 4 cas- 
sette interamente ge- 
stite dal computer. 

Il corso è diviso in 4 
parti, ciascuna delle 
quali contiene la 
versione specifica 
per il computer cui 
si riferisce 

Ure 24.000 

ASSEM- 
BLER 
TUTOR 


Un corso completo 
sulfassembler dei 
C/64 in 8 lezioni 
interamente gestite 
dal computer, più 
un programma MO- 
NITOR 

Lire 12,000 


LOGO 64 

La più originale ver- 
sione del LOGO, 
Programma non 
protetto in basic fa- 
cilmente perso rial iz- 
zahilc. 

Lire 10,000 




CT-BI® 

Vu, 

* «! 

W 1 n 
( mr 


m * 


24 ORE 
BASIC 

n corso di basic più 
veloce per C/64 13 
lezioni su 4 cassette 
con una introdu- 
zione "parlata”. 
Tutto il basic senza 
libri nè dispense, 

lire 24.000 


JU PASCAL 
PER C64 


Il volume introdut- 
tivo sul Pascal della 
collana i “libri Sy- 
stems" completata 
dalla cassetta con il 
programma compi- 
latore. 

lire 10.500 (Libro 
+ cassetta) 

MS-DOS 

& 

GW-BASIC 

emulator 

Il primo pro- 
gramma in grado di 
emulare sul C/64 il 
sistema operativo cd 
il piu diffuso basic 
dei PC Ibm, 

Lire 12,000 su cas- 
setta 

Lire 25.000 su disco 


Si, inviatemi ai più presto il seguente sofTwai^ al prezzo contrassegnato, più lire 3.000 per spese di spedizione: 


□ VELOCISSIMO BASIC [24.000) 

□ ASSEMBLER TUTOR (12.000) 

□ MS-DOS & GW-BASIC EMULATOR 

□ versione cassetta (Lire 12.000) 

□ versione disco (Lire 25,000) 


□ 24 ORE BASIC (Lire 24.000) 

□ PASCAL PER COMMODORE 64 {Libro + 
C cassetta lire 19,500) 

□ LOGO 64 (Lire 10.000) 


importo totale lire: 


■ r ■ r i t i t ! - - i -i -I *4 * + ■*■* + S + « « I r r 4 ■ ■ 


fp-pp-ppi p ■ ■ ■ p 


j i uà i, (, + + t I- If ■ I p f ^ i B 4 ^ e ■ • gì i i HTPriinaiiEi 


Su tale importo mi praticherete lo sconto def 10% in quanto abbonato a □ Commodore Computer Club □ Personal Computerò Com- 
puter □ VR Videoregistrare . Pertanto vi invìo la somma soltanto di lire,,... . 


□ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

Banca ,ii,.i,iii,ri.ii.i,if | i | ,p | ,,i,,i | r,^,,,,,,p,, | p,,,, | ,rip | T', | ,p,F | , | ,i,i,ii pò t i 3 re ,, I. ,, ,, i.i,i ., ,, li , , , . ii, l, ,,. 1 1.1,1 e , . i , , , , ,B., , . , . l, , . i, vq 1 1 ri lo^jtsto. 


□ Contentandomi dei normali tempi postali ho inviato oggi stesso l’Importo di lire,,., a mezzo C/C postale N, 37952207 

intestato a Systems Editoriale - V ie Famagosta, 75 - 20142 Milano. 


Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V.le Famagosta, 75 - 20142 Miiano. 


Nome 
via ..... 
CAP.. 


BPBBBBBBBBBBB ""ff nifi l«MI«FC IMI ■■iHiHIKl IMIBIimi IlIflIPf *1 finn B'SBBB^BBPPBBBBBfllBBP-R IRBII >-»«■«■-■ MBBI «4 UBI Bi'BI Itll PBI1 IBI V IB B1 Bill ■■ BBC Ufi 


N.ro. ■.■i.ita. 


piri a.pl|^|iÉÉ ii>k,.a .. li .il Èi éé bb*ki.i« il ii i 

Città 


àmmmmmm t^S f"ÌQ 


mmmmm mmmm .... . lÉéi Iééé ■■ ai li li iii li iiii .É iit 




■ n.iriM" 1 










GIOCHI 

QUALSIASI COMPUTER 


ftiotracciamo 
la colonna vincente 


Se avete realizzato un buon punteggio con 
il programma TOT 13, non vi resta che 
individuare, tra quelle giocate, le 
schedine vincenti... 


di Antonio Pastorelli 
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VjFucsto programma fa seguilo a 
TuTl3 + pubblicato sul numero 35 di 
C.CC. che permetteva lo sviluppo di 
sistemi condizionati 

Ricorderete, infatti, che dopo aver 
impostato e sviluppato un sistema 
con TOT 13, avete la possibilità di sal- 
vare le colonne dehorate. sta per 
consultarle più volte (soprattutto nel- 
la noiosa fase della trascrizione)» sia 
per avere un archivio al quale fare ri- 
corso per controllare i punteggi 
conseguiti. 

[) programma dì queste pagine ca- 
richerà in memoria le colonne prece- 
dentemente giocate e controllerà, co- 
lonna per colonna, i punteggi otte nu- 
li indicando non solo quanti 13, 12, 
1 1 (e perfino 10) avete totalizzato ma 
anche la schedina clic contiene gli al- 
ti punteggi riscontrati. 


Per avere questa ultima comodità è 
necessario, ovviamente, trascrivere 
una per una le colonne nell'ordine in 
cui appaiono sullo schermo al mo- 
mento delFOtput di TOT/ 13 e nume- 
rare le schedine prima di consegnar- 
le alla ricevitoria 


Come usure il programma 

L’uso del programma è molto sem- 
plice: dopo il RUN dovrete indicare 
il nome del file con cui avete memo- 
rizzato le colonne giocate. In TOT. 1 3 
il nome del file era “fìsso"’ (cioè: 
FOT) ma è probabile che qualche let- 
tore abbia modificato il programma 
per memorizzare più file sullo stesso 
disco. La possibilità di indicare il no- 
me, inoltre, risulta indispensabile per 
i tenori che volessero utilizzare an- 


che il programma “Sistemi Ridotti” 
pubblicato in questo stesso nu- 
mero.. 

Pertanto la domenica sera, dopo la 
comuc azione ufficiale della colonna 
vincente, digitatela quando il pro- 
gramma la richiede e confermate 
premendo il tasto l S’ (oppure, in ca- 
so di errore di digitazione, non si 
conferma e si ripete fintroduzìonel 

A questo punto il computer con- 
fronterà la colonna vincente con cia- 
scuna colonna memorizzata e so- 
spende le Liberazione in due casi: 
quando ha terminato il controllo op- 
pure quando ha individuato un pun- 
teggio maggiore di IO. hi quest’ulti- 
mo caso viene visualizzala l’infor- 
mazione utile per rintracciare la 
schedina che contiene la colonna in- 
dividuata; per proseguire basterà 
premere un tasto qualsiasi. 


100 REM CALCOLO PUNTEGGI C0N5E5 
U I TI CON TOT/13 

110 REFI PER C/ 16 PLUS/4 E C/G4 

180 ; 

130 REFI BY ANTONIO PASTORELLI 

140 : 

150 POKE 55 , 251 : POKE 55,33;CLR 

1S0 INPUT M CCLEARTNONE DEL FILE 
REGISTRATO”; U05 

170 X1$=CKR$CR13) : XES-CHRSC 19E2 
: X3S-CHRSC 1782 ; X4$“CKR$ C£01 
) : X5$*CHR$ ( SEI 3 : X6S-CHRSB f B1 
9) 

1B0 X7S-CKR9C171 3 : X85-CHRS C 179 2 
: XeS*CHR$ t £08 3 : XA$-CHR$ C 177 
3 ; XBS-CHRS C £03 ) 

130 G05UB 040 : REH COUP ILA POLITI 
NE L/f1 

2G0 PRINT"C0LEAR]CRUS3 

PUNTI 

210 FOR J-l TG 1000 : NEXT 

££0 PRINT"C5 DOWN] FREMI UN TAST 
D E, IN SEGUITO. INTRODUCI 
LA COLONNA U INGENTE." 

530 REM INTRODUZIONE COLONNA UI 
NCENTE 

£40 GET A$ : I F AS-”” THEN 540 

5S0 FRI NT ”C OLEARI "XISXESXESXESX 


35X£$X4S;F0R X-l IO 3: FOR J 
-1 TO 3 : PR I NTX5S ” ”X5$'’ *’ 

X5S 

260 NEXT 

£70 PR I NTX7SXESX2SXSSX6SX2SX0S : 
NEXT: FOR J-l TO 4:PRINTX5$” 
”X5$ ” ”X5S : NEXT 

£60 PRINTX9$X5$X£4XPSXASXe$XBS 

£90 PRINT”CH0NE:” : X-0: FOR J-l T 
a 13 : X-X + 1 : I F X>3 ANO J< 1£ 
THEN X-l: FRI NT ”C DOWN! 

300 FRINÌ TAECH-LENCSTRSrJm jJ 
: NEXT 

310 FRI NT "CHDNE3 " : X“0 : FOR J-l T 
0 13 

350 GET PS : I F AS-"1” THEN A-1:G 
0T0 360 

330 IF A$“ "X ’’ THEN A-£:G0T0 3B0 

340 IF AS- ”£" THEN A-3:GDT0 360 

350 GOTO 350 

360 X“X+1:IF X>3 AND J<15 THEN 
X-l : PR I NT ” C DOUlND ” ; 

370 POKE B703+J, A: PRINT TABC5): 
”C RUS3 ” ; AS : NEXT 

360 FOR J-l TO 700: NEXT 

330 PRINfCS DOUIN DCROSJCQNF ERMI 
CS/NI?” 

400 GET A$ : I F AS-’’S” THEN 430 

410 IF A3>” ”N ” THEN 500 


36 - Commodore Computer Club 




420 GOTO 400 
430 IF 2X THEN 510 
440 PRINT"CCL£AR3LE COLONNE CIO 
CATE SONO STATE PEGI5TRATES 
u CRU53DERUQFF3 1500 □ SU C R 
US3NC RUQFF3 ASTRO?” 

450 PRINT "CDOWN3 (INSERISCI IL 0 
ISCO OPPURE POSIZIONA IL NA 
STRO CHE CONTIENE I DATI 3" 
450 REM CARICAMENTO DATI COLONN 
E GIOCATE 

470 GEI A$ : I F AS“ ”D ” THEN OPEN 
1 , B , 12 , U0S+ ” , 5 , K” : GOTO 500 
400 IF A$“"N’* THEN OPEN 1,1, 0,U 
0$ : GOTO 500 
490 GOTO 470 

500 I NPUTttl . NT : NR=NT : PR INT" CCLE 
AR3CRUS3ATTENDERE; CRU0FF3 C 
ARICAI1ENT0 DATI IN CORSO... 

M 

* 

510 PONE 9710, INTCNT/256) : POKE 
0717 ,NT-INTCNT/2S6) : POKE 97 
E0,0: POKE 8701,0 
500 IF ZX THEN 550 
530 FOR X-l TO NR; FOR J=1 TO 13 
540 INPUT #1 , A : POKE 8010+ J+X*l 3 , 
A: NEXT J, X : CLOSE 1;ZX-1 
550 PR INT'’tCLEAR]UER I F ICA PUNTE 

GGI CONSEGUITI ” : FOR J-l 

TO' 300: NEXT 
560 SY5B704 

570 REFI LETTURA RISULTATI 
580 NR-PEEK C B7S1 3*256+PEEK C 8720 
3 

590 B-NR/4:IF B-INTCB3-3 THEN S 
C-B: C0“4 : GOTO 610 
S00 CO-CB-INTCE33*4: SC-INTCB3+1 
610 A-PEEKC87193 : IF NR-NT THEN 
FI-1 

500 IF A< 10 THEN S90 
530 IF A= 10 THEN AA-AA+1 
640 IF A=1 1 THEN AB=AB+1 
550 IF A" 10 THEN AC-AC+1 
560 IF A™ 13 THEN AD-AO+1 
670 PR I NT ”C OLEARI PUNTI : ” ; A : PR I N 
T "SCHEDA N . ” ; SC ; PRINT "COLON 
NA N . ” ; CO 

SB0 PR INT” CD0UN1 CRUS! PREMI UN T 
ASTO PER CONTINUARE” 


590 IF FI THEN 710 
700 GOTO 780 

710 PRINT ” C OLEARI RIASSUNTO: PR 
INT‘T3 D0UN3PUNTI 10:"AA:PR 
INT”PUNT I 1 1 : “AB 
720 PRINT’TUNTI 12: ”AC; PRINT”PU 
NT I 1 3 : ” AO 

730 FOR J = 1 TO 6 : PRINTCHRS C 17) : 
NEXT 

740 PRINT”CRUS3R-CRUOFF3 RESTART 

CRUS3E-C RU0FF3USCI 
TA OAL PROGRAMMA” 

750 GET A$ : IF A$“"R’* T^EN 820:R 
EH RIPRENDE LAUORQ 
760 IF A$— ”E ” THEN PRINT'’CCLEAR 
3 ” ; : END : REFI FINE L 
770 GOTO 750 

780 GET A$ : I F A$-”” THEN ?B3 
790 PRINT "CCLE ART ” : SY50735 
800 GOTO 580 

810 FOR J-l TO 126: READ A: POKE 
0723+ J , A : NEXT : RETURN 
820 ZX-1 : AA-0: AB-0: AC-0: AD-0: FI 
-0 : GOTO 200 
830 REM DATI L/M 
040 HK-0 : FOR J-l TO 100:READ A: 

HK-A+HK: POKE 8723+J , A : NEXT 
B50 IF HK< > 9714 THEN PRINT "ERRO 
RE NEI DATA”: END 
880 RETURN 

B70 DATA 159,120.133,38,169.34 
. 133,39, 76,41 , 34, 173, 18,34, 
133,38 

890 DATA 173,19,34,133,39,160, 
0,140.15,34,162,1,177.38,22 
1,255 

890 DATA 33, 240, 59, 230, 3B, 208, 
2,230,39,232,224, 14,208,230 
, 238, 16 

900 DATA 34.208,3,238,17,34,17 
3,15,34, 205, 13,34,208,9, 173 

i 1 ' 

910 DATA 34,205,14,34,208,1,95 
, 173 ,15,34, 201 , 9 , 208 ,3,76,4 
1 

920 DATA 34,144,194,165,38,141 
,18,34,165,39,141,19.34,96, 
239,15 

S30 DATA 34,76,55,34 
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GIOCHI D AZZARDO 
C 64 - C 128 

Riduzione di sistemi 

condizionati 

Un sistema per ridurre al minimo il 
numero di colonne da giocare al Totocaicio 


di Antonio Pa-storelli 



fjd eccoci ad un altro appunta- 
mento con ì giochi d'azzardo, tra i 
quali includiamo È) totocalcio dal 
momento che decine di migliaia di 
persone, ricorrendo all'uso intensivo 
dei sistemi, sperperano settimanal- 
mente centinaia di migliaia di lire. 

In questo articolo daremo un ulte- 
riore strumento per Tare giocate più 
efficienti, cioè per spendere poco 
ma bene. 

Vi proponiamo infatti un program- 
ma per ridurre i sistemi condizionati 
(vedi programma pubblicato su Com- 
modore Computer Club N.35). 

* limiti ri tu Ho si prepara il sìs< tnia-bw.se 
integrale. 

* Si carica e si “lancia”, quindi, il program- 
ma TOT 13 pubblicato su CCC di ottobre. 

* Si pongono i con di zìo n amenti in modo da 
eliminare le colonne che, secondo voi, han- 
no una bassissima probabilità di vincita, 

* Rnila la selezione delle colonne (con 
TOT 13), alla domanda “Registri" si n 
sponde affermativamente, realizzando in 
(al modo un archivio su nastro o disco, 

* Si carica il programma dì queste pagine e 
si impartisce il RUN. 

Questo programma caricherà, una 
alla volta, le colonne precedente- 
mente registrate, e selezionerà quelle 
da giocare. 

Vediamo ora in base a quale crite- 
rio avviene la selezione. 

La prima colonna caricata in me- 
moria è anche la prima colonna vali- 
da ai tini della riduzione. 

Per ognuna delle successive, inve- 
ce, il computer esegue un controllo 
tra queste e tutte quelle precedente- 
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mente selezionate come valide 

Se ilal con Ira ilio risulta che tra le 
colonne valide ne esiste almeno una 
che differisce da quella caricata dal- 
la rehlvio anche per un solo prono- 
stico. allora non viene giocata: se fos- 
se quella vincente, infatti, sì totaliz- 
zerebbe comunque almeno un 12. 

Negli altri casi la colonna viene 
considerata valida ed inserita nel 
gruppo delle colonne da giocare. 

Il programma TOT 13, per come è 
stato pubblicato sul N\35, genera un 
file chiamato ’TOT\ Poiché su un 
disco non possono esservi due file 
con lo stesso nome potrebbe darsi il 
caso che si abbia un dischetto con 
piìi lite generali da TOT 13 (con no- 
mi diversi grazie a modifiche del pro- 
gramma da parte del lettore o a suc- 
cessive operazioni di Renarne)* Chi 
possiede il drive, pertanto* si assicuri 
che il file dal quale vuole ricavare la 
riduzione sia registrato effettivamen- 
te con il nome TOT; in caso contrario 
bisognerà cambiarlo con il coman- 
do Renarne, 

Terminala la selezione il computer 
chiede se si desidera registrarla op- 
pure visuali zzarli* -subito. 

Nel primo caso viene creato un ar- 
chivio. su nastro o disco, chiamato 
‘R TOT". Nell altro, invece, le colon- 
ne vengono stampate su video o 
stampa n te { ri spondendo all apposi tu 
richiesta con "V" oppure con l 'S")* 

Se si sceglie dì registrare, I archivio 
potrà essere successivamente letto 
con il programma DISPLAY, pub- 
blicalo insieme con TOT 13. avendo 
l'accortezza di cambiare il nome del 
file da TOT a "R. TOT* nelle linee 
160 c 170, 

Per verificare che il programma 
funzioni correttamente, ricorriamo 
ad un esempio banale ma utilissimo. 

Dopo aver caricato TOT 13. impo- 
stale un sistema formalo da quattro 
triple (primi quattro pronosticìjc no- 
ve fisse fi rimanenti). 

Alla domanda sui segni, impostale 
fa seguente direttiva; 

1, da in a 13 
\* da 1 a 3 

2, da l a 2 

Alte domande sulla consecutivi^ 
dei segni rispondete nel modo se- 
guente: 



1, massima- 10 
X* massima— 2 
2* massima- 2 


Se avete digitato correttamente il li- 
stato di CCC N.35, il computer do- 
vrebbe elaborare 34 colonne. 


Nel digitare rghe di programma ba- 
sic che contengono istruzioni DATA, 
é piuttosto facile incorrere in errori di 
digitaline Supponiamo che un ipo- 
tetica linea basic numerata con 1200 
debba contenere i tre valori 120, 
456. 789 Ecco alcuni esempi di erro- 
ri più frequentemente commessi 

1200 DATA, 123 456.789 

C'è una virgola dopo la parola 
‘DATA ’ l dati letti dal computer so- 
no in questo caso, quattro 0. 123. 
456, 789 Se. infatti, non figura alcun 
carattere dopo l'istruzione DATA, au- 
tomaticamente viene assunto il valo- 
re nullo f0) 

1200 DATA 123,456,789, 

In questo caso, dopo il numero 
789, il computer grazie alta presen- 
za della virgola erroneamente inseri- 
ta. ‘crede L che ci sia un altro valore 
e. non trovandolo, lo assume come 
nullo {0! 

1200 DATA 1234.56.789 

La virgola è posizionata male, vate 
a dire dopo il carattere "4' 1 e non 
dopo il carattere "3“ il computer non 
può sapere se il valore esano è 123 
oppure 1234 e individuare un errore, 
rn questo caso n&ufta piuttosto 
laborioso 


Queste colonne* elaborate con il 
programma dì queste pagine, do- 
vrebbero ridursi alle seguenti dieci 
(in cui, per semplicità, sono stati o* 
messi i pronostici "fissi"): 


il 

11X 

211 

111 

mi 

WrMk 

iia 

Xll 

111 

mi 

mm 

1X1 

211 

111 

un 


1X2 

111 

111 

mi 


121 

Xll 

111 

mi 

ca 

12X 

111 

111 

mi 

mm 

XI 1 

211 

111 

mi 

mm 

X12 

111 

111 

mi 


211 

Xll 

ili 

mi 

mtm 

21 X 

111 

111 

mi 


l-i i Posta del Totocalcio 

Alcuni lettori hanno fatto notare 
che il programma TOT 13 non gira 
sul C/128. In effetti ciò è vero e a no- 
stra discolpa possiamo solo dire che 
una precedente versione* che girava 
perfettamente sul C/128, ci ha indot- 
to ad affermare che il program ma era 
idoneo anche per tale computer. 

In seguirò, però, volendo rendere 
valido il listalo anche per il Plus/4, è 
stato modificato rendendolo* di fatto, 
incompatibile con il C/128, Nelf artì- 
colo, purtroppo, abbiamo dimentica- 
to di accennare a lille limitazione. 
Non dimentichiamo, però, che chi 
possiede il C/128 possiede "anche" il 
C/64 ed il programma gira perfetta- 
mente sul C/128 attivato in modo 
64. 

Altri lettori* che intendono utilizza- 
re il registratore a cassette per regi- 
strare i dati di TOT 13, segnalano un 
"lllegal Device Number Errori’ alla 
linea 730. 

Ciò capita se si utilizzano partico- 
lari TOOL, tra cui io Speed Dos e al- 
tre cartucce che, in genere* aumenta- 
no la velocità del drive. 

Molto spesso* infatti* alcuni Tool i- 
nibiscono riuso dei file su cassetta* fa- 
cendo comparire il messaggio di er- 
rore citato nel caso in cui sì aprano IT 
le verso il registratore. 

In questi casi* quindi, o si utilizza il 
drive oppure si elimina la cartuccia 
prima di caricare ed utilizzare il prò 
gromma TOT 13. 
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100 

120 


130 

140 

145 

150 

1G0 

170 

100 

100 

500 

210 


220 

230 

240 

250 

260 

270 

200 

230 

300 

310 

320 

330 

340 

350 

360 

370 

300 

330 

400 

410 

420 

430 

440 


REM DISPLAY PER TOT 13 
Din A® C 700 ) : C$=CHR®C 147 5 : D® 
-CHR$( 171 : £®-CHR®C157) : FS-C 
HRSC23) 

FOR I"1 TO 17 : GS-GS+CHRS C 17 
} :NEXT: HS=CHRSC13> 

FRINTC$”D I 5 P L A Y" 

PRINT: INPUT "NOME DEL FILE" 

; W0$ 

PRINT: PRINT” I DATI SONO SU 
NASTRO 0 01500? CN/D)” 

GET A® : I F A$=’’N” THEN OPEN 
1 , 1 ,0, W0®:GOTO 190 
IF A$-"0" THEN OPEN 1.9,12, 
U0$+ ” , S , R* : GOTO 130 
GOTO 160 
INPUT#1 , NR 

PRINTC® "LETTURA DATI” 

FOR J-l TO NR: FOR H-l TO 13 
: INPUT# 1 , A$: ASC J }-A$( Jl+AS: 
NEXTH, J : CLOSE 1 
FRINTCS’m ” 

PRINT "PREMI UN TASTO PER IN 
1Z I ARE" 

GET AS:IF AS“ ” ” THEN 240 
H-l 

PR I NTC® ”DA ” ; H : "A";H+1S: P=0 
PRINT; FOR J”H TO H-1B 
FOR K-l TO 25 STEP 2;AS-niD 
SCASC J1 ,K,I) 

IF A$-”l” THEN 320 
IF A$-”2" THEN A$-”X” 

IF A$*”3” THEN A®-”2” 

PR I NTA® ; D® ; ES ; : NEXTK 
PRINTHS: PRINT: PRINT TABC J } ; 
NEXTJ : PR I NTH® ; G® ”* : PROSSIMO 
GRUPPO": PRINT” t 3 UFTT” ; 

GET Z$:IF Z®<> " THEN 410 
IF 2®-”” THEN 350 
H-H+20 

IF H< “NR THEN 260 

PRINT: PRINT: PRINT: PRINT "FIN 

E” 

END 

IF ZS-CHRSCB95 THEN P-P+l:6 
□IO 440 

IF Z$-CHR$C1573 THEN P-P-l: 
GOTO 460 
GOTO 350 

IF PC-13 THEN PKINT”CLEFT] 


t" : : GOTO 350 
450 P- 13: GOTO 350 
460 IF P>-0 THEN PR INT "L LEFT1 C 
2 LEFT3T" ; : GOTO 350 
470 P-0 : GOTO 350 

110 REM RIDUZIONE DI SISTEMI 

120 REM CONDIZIONATI 

140 REM PER C/64 

160 REM BY ANTONIO PASTORELLI 

180 : 

130 FOR J-l TO 40:Z®-Z®+CHR$C32 
1 : NEXT 

200 POKE 55,50: POKE 56,33:P0KE 
687 , 1 : POKE 6BB , 0 : POKE 631,2 
07: POKE 692,33 

210 POKE 635, 220: POKE 606,33 
220 PRINT”CCLEAR;KRUS3 RIDUZI 
□NE DI SISTEMI CONDIZIONATI 
”ZS 

230 GOSUB 720: REM PREPARA ROUTI 
NE L/M 

240 PRINTCHR$( 17) "L 'ARCHILI IO SI 
TROUA SU NASTRO 0 SU DISCO 
?" 

250 GET A® : IF AS-"N" THEN SA-1: 
GOTO 275 

260 IF A$-”D” THEN SA-G:GOTO 27 
6 

270 GOTO 250 

275 INPUT "NOME FILE: ” ; UI0® : IF W 
0$-”” THEN PRINT”CUP3” ; : GOT 
□ 275 

280 REM APRE FILE IN LETTURA 
205 IF SA-B THEN Uj0£-W0$+ ,, , S , R” 
:GOTO 300 

290 OPEN 1, 1 ,0, W0S; GOTO 310 
300 OPEN l,a,3,lil0® 

310 INPUT# 1 , NR : PRINT”CCLEARD 
ATTENDI : ”NR 

320 FOR J-0 TO 12: INPUT# 1 , A: PQK 
E BG55+J, A: NEXT: REM LEGGE P 
RIMA COLONNA 

330 FOR J-2 TO NR : PR INT ”C HOME 1 ” 
J 

340 FOR X-0 TD 12 : INPUT#1 , A : POK 
E B500+X , A ; MEXTX : REM LEGGE 
COLONNE DAL FILE r TOT ' 

350 SYSB533 : REM CONTROLLO 

360 NEXTJ: CLOSE 1 

370 CL-PEEKC687D+256*PEEKCSSBJ : 
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380 

380 

400 

410 


4 m 

430 

440 

450 

4B0 

470 


472 

474 

475 
472 


480 


430 


500 

510 

520 

530 

540 

550 

560 

570 

580 

585 

530 

600 

610 


B20 


REM NUMERO COLONNE UALIDE 
FRINÌ" CCLEARD HO FINITO LA R 
IDUZIONE . ” 

FRINIRLE COLONNE SELEZIONAI 
E SONO:” GL 
REMI SCELTE 

P R I NTCHRS C 1 7 > : P R I NT " 1} REG I 5 
TRA”: PR INI "2JDI5PLAY": FRINÌ 
"FINE LAUORO" 

PR I NTCHRS C 17 1 "CHE COSA SCES 

LI?" 

SET A$:IF AS-"1" THEN 600 
IF A$- JJ 5” THEN 470 
IF A$-"3” THEN END 
GOTO 430 

PR I NT ”C CLEAR3SU LRU5DUERU0F 
FDIDEO 0 [RUSlSCRUGFFIfTAnPA 
NTE?" 

GET A5:IF AS»"” THEN 472 
DU-3;IF AS-"5 1J THEN DU-4 
OPEN 1,00 

PRINT”CCLEARDCRug: ‘S'CRUOFF 
: PER FERMARE LO SCROLLINO " 
: PRINT 

REM STAMPA RISULTATI SU UID 
EO 

FQR J-l IO CL : PR1NT#1 , TAB C 
3-LENCSTRSC J)) )CHRS C 181 JCHR 
SC 1461" " 5 

FOR X-l TO 13; A-PEEKC8641+1 
3*J+XÌ 

REM CONUERS I ONE SEGNI 
IF A-l THEN A$-"l" 

IF A-2 THEN AS-"X" 

IF A-3 THEN A$- f, S J ' 

PRINT#1 , AS; : IF X-3 OR X-6 □ 
R X-9 THEN PRINT#!." "= 
NEXTX 

GEI BS:IF E$~"S" THEN 590 
PEI NT# 1 :N£XTJ: PRINTttlrCLOSE 

1 

PRI NT ”C DGUIN D C RUS3 PREMI UN T 

A5TD”: GOSUB- 680: GOTO 380 

GOSUB 6S0 : GOTO 5B0 

IF SA-0 THEN 635 

PRINT " C OLEARI PDS I Z I UNA IL N 

ASTRO SU UNO SPAZIO LIBERO" 

: GOSUB 630 

REM APERTURA FILE * R . TOT 1 I 
N SCRITTURA 


530 OPEN 1, 1, 1, ,J R, TOT” : GOTO 650 
635 W0S-"R . " + UJ0$: U0£^LEFTSCU0S 1 
LENCUJ0S 1^1 1 + ”UJ ” 

640 PRINT^INSERISCI IL DISCO NE 
L OR IUE" : GOSUB 630: OPEN 1,0 
, 1E,W0$ 

650 PR I NT#1 , CL 
660 FOR J-l TO CL 
670 FOR X-l TO 13 : PR I NT#1 f PEEK C 
B641+X+J*13) : NEXTX 
680 NEXTJ : CLOSE 1 : END 
630 GEI BS:IF BE-” M THEN ES0 
700 RETURN 

710 REM LETTURA DATI ROUTINE L/ 
FI 

720 FOR J-0 TD 137: READ A:KK-KK 
+ A : PCJKE 8513+ J , A : NEXT ; RETUR 
N 

722 IF KK< > 14619 THEN PRINT JI ERR 
□ RE NEI DATA * n : END 
725 RETURN 

730 REM DATI ROUTINE L/M 
740 : 

750 DATA 160,0,185,52133,209,2 
, 208 , 6 , 200 ,192,13, 208 , 244 , 3 
6,230 

760 DATA 4 „ 76 , 74 , 33 , 173 , 175 , 2 , 
174,176,2,141 , 177,8, 142 , 178 
.2 

770 DATA 173 , 179 , 2 , 174 , 180 ,2,1 
33,2, 134 f 3, 163,0, 133,4,32,6 
5 

ncarcs i u =ji^i i -20 io i 

/ L i J l 1 1 JL P ■ ij -h_ * | ,1,. tJ VtJ -jj, «L. f ’¥-> r J- | Jk- | I HL# l_# q -i*_ H| 

96,206, 177,2,173,177,2.201 , 
255 

790 DATA 206,3,206,178,2,173,1 
77, 2,208,50, 173, 17B, 2, 20B.4 
5,238 

800 DATA 175,2, 20B, 3,238, 176, 2 
, 173, 173,2, 174,174,2, 133,2, 
134 

810 DATA 3,160,0,185,52,33,145 
,2,200, 192, 13,508,246,173,1 
73,2 

820 DATA 24,105,13,141,173,2,1 
44,3,836, 174,5,36, 165,2,24, 
105 

830 DATA 13,133,2.144,2,230,3, 
76,107,33 
840 END 
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Per ordinare t fascicoli mancanti alia tua collezione di Commodore Computer Club utilizza ! apposita scheda in fondo alla rivista. 




ALTA RISOLUZIONE A BASSO COSTO 

LA MIGLIORE PERIFERICA PER GRAFICA 

GRAFPAD lì 



Software ' v ™ rac '' 


• DIMENSIONE DISEGNO: FORMATO A4 

• ALTA RISOLUZIONE A COLORI 

• PER CASA E UFFICIO 

• DIVERSI PROGRAMMI OPTIONAL 

• DISEGNO A MANO LIBERA 

• DISEGNO CIRCUITI ELETTRICI 

• CREAZIONE DI BIBLIOTECA SIMBOLI GRAFICI 


^ /RI MA TAVOLETTA GRAFICA A BASSO COSTO p ER AMSTRAD 484-664- 

Orlt OFFRE . . __ 

LE PRESTAZIONI E DURABILITÀ 1 RICHIESTE DALLE 6128 


APPLICAZIONI 

INDUSTRIALI, AZIENDALI, SCOLASTICHE ECC. 
E 1 PICCOLA, PRECISA E AFFIDABILE. 


PER COMMODORE 64-128- 
128D 


NON HA BISOGNO DI MANUTENZIONE 


NOVITÀ' ASSOLUTA PER COMMODORE 64 

RICONOSCITORE VOCALE: comanda a voce il Ilio Commodore 64 tramite microfono 


NOVITÀ' ASSOLUTA IN ITALIA 

Televisore TASCABILE: seguite le trasmissioni televisive in qualsiasi luogo. Dimensioni: 13 cm x 7 erri x 3 cm. 


AMSTRAD 464-6654-6128 


H 

A 

R 

D 


Penna ottica 

Espansione di memoria 64K - 256 K 
Sintetizzatore vocale 
Disc Drive con controller 
Stampante DMP200Q 

TASWORP: WP potente per creazione di testi e documenti 
TÀSPRINT: Programma supplementare ai precedente per la stampa 

TASCOPY; Hardcopy -stampa immagini anche in formato poster di tutto ciò che compare su video 
MASTERFILE: Sistema di archiviazione e ricerca selettiva - potente DATABASE 
MUSEC-SYSTEM: Per comporre musica 


H 

A 

A 

D 


AMSTRAD PCW 8256 -8512 

Espansione di memoria 256KB + secondo disco da 1 Megabyte ir kit di montaggio 

GRAFPAD III: tavoletta grafica ad alta risoluzione per CAD professionale completa dì software e manuali in 

Mano 

TASWORD 8000: elaborazione testi con abbinamento testi a indirizzi, stampa etichette, stampa in protocollo 
TÀSPRINT 8000 [Program ma complementare al precedente per stampa professionale con 8 stili diversi 
CYRUS II: scacchi tridimensionali professionali 


CONSEGNA IN TUTTA ITALIAi TELEFONARE PER INFORMAZIONI 
S*T. Syscom - Via B* Palano, 13/B - 24100 Bergamo - Tel. 035/237751 


GIOCHI 

C64-C128 



Laser, pistole, 
spade e gemme 


Esaminiamo i “ protagonisti ” delle 
avventure ricorrendo ad un esempio \ 

molto istruttivo 


di Sandro Certi & Franco Ioidi 


. ^ 
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Il cammino dell avventuriero è let- 
teralmente cosparso di oggetti: alcu- 
ni hanno solo una funzione decorati- 
va, limitandosi ad arredare iì mondo 
del gioco, altri sono utili, spesso indi- 
spensabili, per superare gii ostacoli e 
le trappole che ci attendono sul 
cammino. 

Nel precedente artìcolo abbiamo 
visto come creare ì luoghi in cui si 
svolge ravventura. Abbiamo poi alle- 
stito le routine necessarie per permet- 
tere al giocatore di muoversi all'inter- 
no del mondo così creato. 

In questo articolo esamineremo le 
routine che consentiranno di collo- 
care i mezzi ritenuti necessari nei 
luoghi scelti. Vedremo poi le classi- 
che routine '‘prendere” “lasciare” e 
“inventario", che consentiranno al 
nostro giocatore di avvalersi dei mez« 
zi a sua disposizione prelevandoli da 
un certo luogo, portandoli con sè, ve- 
rificandone durante la via il possesso 
e depositandoli nel luogo opportuno. 

Per prima cosa vedremo come do- 
tare alcuni luoghi dei mezzi necessa- 
ri per affrontare gli ostacoli che lo at- 
tendono. Parleremo dei soli "ostaco- 
li", cioè di quei luoghi dove -per il su- 
peramento di una difficoltà- si ren- 
dono necessari mezzi appropriati Si 
tratta di oggetti che F avventuriero 
può tuttavia reperire percorrendo a 
ritroso il cammino fatto. Non parle- 
remo invece delle "trappole" quei 
luoghi cioè ove il possesso dì un og- 
getto adeguato è talmente essenziale 
per f avventa ri ero, bloccato nella 
trappola, che la sua mancanza ne de- 
termina spesso la morte. Parleremo 
delle trappole prossimamente, c nc 
approfitteremo, magari, per intro- 
durre altri elementi delForganizza- 
zione del gioco. 

Le routine di di&piegameitto 
dei mezzi 

Nell'articolo precedente abbiamo 
già fatto uso sia di variabili numeri- 
che che di variabili stringa ^Prende- 
vamo Tuttavia in considerazione un 
solo valore numerico o una sola 
stringa di caratteri per volta da asse- 
gnare alla variabile interessata. 


Con il termine "mezzi' - intendiamo 
far riferimento ad un insieme di valo- 
ri numerici, o di striglie di caratteri, 
organizzati in base ad un principio 
ordinatore. 

Nel programma dimostrativo ab- 
biamo pensato a due soli oggetti col- 
locati in altrettanti luoghi precisi. Vo- 
gliamo cioè che si stabilisca un lega- 
me tra il luogo dove si trova un ogget- 
to, il nome dello stesso e la sua 
descrizione. 

Esempio; 

NeNuugi>N.4c'è una lunga spada artistica' 
mente decorala. 

Nel hiogu N.8 c'è un piccolo sacchetto di 
riso. 

Raccolte di dati, ordinati come de- 
ferito, sono comunemente chiamate 
“array” 

Come per le altre variabili, a cia- 
scun array va assegnato un nome se- 
guito dal simbolo di percentuale {%) 
se contenente valori numerici, l $ ' se 
contenente stringhe. 

Nel nostro caso abbiamo i tre 
array s : 

OG%0OG$() DoS() 

Ci si riferisce in genere ai singoli e- 
ìementi dell array con il nome del- 
Farray seguito da un valore numeri- 
co, tra parentesi, indicante il posto 

che Fete mento occupa nella tabella. 
Seguendo Fesempio appena visto, 
OG%(2) indicherà il luogo n,8, 
OGS(l) l'oggetto spada e DOS(2} il 
piccolo sacchetto di riso. 

Pensando che a partire dal nostro 
programma ne verranno costruiti di 
piu estesi, abbiamo provveduto a di- 
mensionare gli array dei dimostrati- 
vo con l'apposita istruzione DIM, 

1 commenti alle routine. 

Ricordiamo, anzitutto, che solo un 
paio di Poke (relative ai colori dello 
schermo) impediscono la compatibi- 
lità totale con computer diversi dal 
C/64: sarà sufficiente non trascriver- 
le per veder girare il programma su 
qualsiasi calcolatore. 


Riteniamo utile segnalare che, pur 
mantenendo la denominazione com- 
pleta del mezzo nella variabile OL$ 
(I), abbiamo messo in opera la varia- 
bile QGS(I}ehedi tale denominazio- 
ne contiene solo le prime tre lettere. 
Ciò al line -come vedremo più 
avanti- di velocizzare i! lavoro del 
parser 


T^e routine di movimentazione 
dei mezzi; un primo parser 

Nel programma dimostrativo del 
precedente artìcolo era già all’opera 
un minuscolo parser o analizzatore 
di linguaggio. Nelle righe 800-900 
(vedi CCC N.37) esaminava gli input 
del giocatore, provvedendo in caso di 
istruzione corretta ad operare Fop- 
portimo cambiamento di luogo e, al- 
trimenti. ad informare il giocatore 
che la direzione scelta non era 
praticabile. 

Per "prendere" un oggetto da un 
luogo e "lasciarlo" in un altro abbia- 
mo bisogno di istruzioni costituite da 
almeno un verbo ed un nome. Siamo 
cosìdi fronte al classico parser a due 
parole dei primi Ad ven tu re Game, À 
parser più complessi in grado di ana- 
lizzare due righe o più di imput, sul 
modello di quello impiegalo dalla 
Infoco m con Zork, provvederemo 
con altri articoli. 

Per una più facile comprensione 
delle routine che seguono, ricordia- 
mo qui ÌI lavoro che svolgono le fun- 
zioni Len(stringa) e MìdS(stringa) 
che tn esse utilizzeremo. 

La funzione Len (stringa) fornisce 
in termini numerici la lunghezza di 
una stringa alfanumerica, cioè di 
quanti caratteri è composta. La fun- 
zione MidS(stringa (prima epressìo- 
ne numerica), {seconda espressione 
numerica)) preleva dalla stringa di 
caratteri una sottostringa. Prende co- 
me carattere di inizio quello indicato 
dalla prima espressione numerica e 
ne aggiunge tanti quanti sono stati 
indicati nella seconda, 

Cosi, ad esempio, nel caso della 
stringa "ALABARDA” composta da 
otto caratteri, il risultato di MIDS 
("ALABARDA", U) sarà "ALA", di 
M 1 DSCÀLÀB ARI ì AA5) “BARDA”. 
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GIOCHI 



5100 

5200 

5300 



5400 

5500 



5600 

5700 

5800 

5900 

6000 


6100 





6200 

6300 




Routine À: righe 100/140 

La routine si limita a smistare i co- 
mandi dì una lettera -relativi ad in- 
ventario, aiuto e movi mentaci one- 
sti le righe di programma dove essi 
vengono interpretati fornendo, se il 
caso, le risposte opportune, Si segna- 
la qui il rimando alla routine E, in- 
ventario, direttamente connessa con 
le routine di movimentazione. 

Routine B; righe 394Ì/4IW 

Questa routine, non prevedendo il 
nostro progetto comandi di una pa- 
rola, provvede ad inibirli, informan- 
do il giocatore della cosa. 

Routine C: righe J 090/1 140 

Questa routine è il centro del parser 
impiegato in questo articolo. Avva- 
lendosi delle funzioni LEN e MID$, 
separa l'imput del giocatore in due 
parti. Denomina "verbo" la prima e 


“nome' la seconda, rendendole di- 
sponibili per ulteriori confronti. 

Routine D: righe 1190/1220 
Prosegue il lavoro iniziato dalla 
precedente, confrontando il verbo 
deirimputcon quelli previsti dal gio- 
co. In caso positivo l’analisi viene fat- 
ta proseguile smistando alle specifi- 
che routine dei verbi. In caso negati- 
vo il giocatore viene informato del- 
la cosa. 

Routine Et righe 1290/1358 
Fornisce, dietro richiesta, l'inventa- 
rio degli oggetti che il giocatore reca 
con sè, Questa routine c strettamente 
legata alle seguenti “prendi" c 'la- 
scia”* 

Routine È: ridite 1390/ 1430 
Fornisce, nei luoghi a ciò designati, 
clementi che possono aiutare il gio- 
catore o metterlo fuori strada. 


Routine G: ri^he E 990/24)7® 

In seguito alFistruzione del gioca- 
tore di prendere un determinato og- 
getto. lo informa sulla “situazione 
L'oggetto richiesto può, o meno, esse- 
re preso (facendo ad esempio parte 
dell’arredamento del luogo) o essere 
già in possesso del giocatalo re o non 
essere nel luogo in questione. 

Routine H: righe 2090/2170 

La routine H. a fronte dì un ordine 
del giocatore di lasciare un determi- 
nato oggetto, lo informa sulla "situa- 
zione’. L'oggetto può, o meno, essere 
lasciato o non essere in possesso del 
giocatore o essere lasciato nel luo- 
go scelto. 

Evidenziamo che nel caso specifico 
della routine del programma dimo- 
strativo, le lince 2154) e2(60sono usa- 
le per simulare iì superamento dei 
due ostacoli. 


Programma dimostrativo 

Il programma pubblicato ha lo sco- 
po di permettervi di utilizzare tutte le 
routine fin qui descritte, 

E' stato concepito sotto forma di 
gioco per evidenziare ravvicinamen- 
to che in esso si compie ad una av- 
ventura vera c propria. 

Siamo partiti dall'idea di un tempio 
in cui f avventuri ero si trovasse rin- 
chiuso per ignori motivi. Abbiamo 
quindi pensato che. nel suo percorso 
verso la libertà, incontrasse due osta- 
coli superabili mediante il possesso c 
Fuso di due oggetti. 

In un primo approccio al problema 
della sceneggiatura dei giochi di av- 
ventura facciamo rilevare che i due 
ostacoli sono tra loro strettamente le- 
gati, Il superamento delFiino è neces- 
saria premessa a quello del l’altro. 


1 

REM 

DI MOSTRAI IUO CCCADUPR6 

30 

REM 

5CRIUE MINUSCOLO 


£ 


31 

POKE 

53£7£ , £3 

£ 

REM 

MEZZI : MOUIMENT AZIONE 

100 

REM 

INIZI ALI 2Z . UAR. MEZZI 

£0 

REM 

COLORE SCHERMO E CORNI 

110 

0 1 M 

□ G^CS?,QG$C2) , DDSC £2 ,0 


CE 



LECE) 


£1 

POKE 

53200,9: POKE 53201,9 

1£0 

POR I 

-1 TD £:READ 06‘i(I) t 0C ! 
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la tessera del M I U- 1 A vomica CLUB. 

vMM I ca costa £ 2.200.000 + IVA 
consegna GRATIS IN TUTTA ITALIA. 

Tutto il software disponibile 
e l’hardware novità. 


Inoltre la NIWA vi propone per il vostro C/64-C/1 28: 

Floppy disk “Memorette” 5 1 / 4 ssdd 100% error free... 


Floppy disk bulk 3 1 / 2 dsdd 100% error Iree 


cd. L. 1. 

da Li 3< 


O.M.A. Non permettere che i tuoi programmi originali si ROVININO, 
Con O.M.A., puoi fare una copia di sicurezza in un unico file (!) rìcas- 
settabile del tuo software su disco o su nastro 


L. 99.000 


HACKER Cartridge: trasferisce il 99% del tuo software protetto 
da nastro e da disco a disco in soli 4 minuti senza bisogno di cono- 
scenza Linguaggio* Macchina e di compattamento; lavora inoltre 
senza disco di lavoro e può essere attivata a programma già carica- 
to* 128 compatibile (in modo 64), 

HACKER-TAPE: permette di ricassettare qualsiasi tipo di pro- 
gramma precedentemente trattato con HACKER, senza nessun 
problema di blocchi, leggendo in turbo da disco e scrivendo in tur- 

b O SU l^^^str^^ I................. St'm ■ ■■ , H L W ■ "1 . ■ I 

OFFERTA: HACKER + HACHER TAPE 

MPS 802 New Graphic CON MONTAGGIO GRATUITO rende 
100% compatibile la tua MPS 802 con i programmi di Grafica 

Speeddos per C64 L. 65.000 per CI 28 L. 85.000, Fast load reset 

L. 35.000, Isepic L. 50.000, Capture L. 99.000. 


Via Buozzi, 94 - P.O. BOX 83 - 20099 Sesto - S. Giovanni (MI) MM. Marcili 
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L. 80.000 


L. 45.000 
L. 99.000 

L. 80.000 



scn,nasci).OLscn:NEXT 
130 DATA 4 , SAC , UN PICCOLO SACCH 
ETTO DI RISO, SACCHETTO 
140 DATA 0, SPA, UNA LUNGA SPADA 
ARTISTICAMENTE DECORATA, SPA 
DA 

190 REM FISSA IL LUOGO INIZIAL 
E 

230 P-ll 

290 REM SMISTA SULLE LINEE DES 
C .LUOGHI 

300 IF P< G THEN ON P GOTO 0,510 
0,5200,5300,0 

310 IF P<11 THEN ON P-5G0T0 0,5 

400 . 5500 .0. 0 

320 IF P< 15 THEN ON P-10GOTO 56 
00 , 5700 , 5900 , 5900 , 6000 
330 IF P<21 THEN ON P-1SG0T0 0, 

6100.3.0. 0, 

340 IF P< 26 THEN ON P-20GOTO 0, 

5200.6300.0. 0 

390 REM SCRIUE GLI OGGETTI NEI 
LUOGH I 

400 FOR 1-1 TG 2 : I F DG^C1?“P T 
HEN PRINTDOSCn 
410 NEXT 

590 REM SCRIUE LE DIREZIONI PE 
RCORRIBILI 


600 

PRIMI'*] 

PUOI ANDARE A: 

TI 

610 

IF 

71 _ 

N> 0 

THEN 

PRINT 

"NORD 

6£0 

» 

IF 

u 

S> 0 

THEN 

PRIMI 

"SUD 

630 

IF 

Il m 

E>0 

THEN 

PRINT 

"EST 

640 

IF 

O>0 

THEN 

FRINÌ 

"QUEST 


» 

6B0 REM RICHIEDE ISTRUZIONI AL 
GIOC . 

630 PR1NTCHRSC 131 
700 INPUT "COSA FAI " j AS 
710 REM COMANDI DI UNA LETTERA 
720 IF AS“" I ’’ OR AS* 5 "A" THEN 0 
00 

730 IF A$“” N " OR A$*= ”S" OR A5- 
"0” OR A5“ "E ” THEN 600 
740 GOTO 1000 

790 REM PARSER 1NUENTAPI0 , AIUT 
0, DIREZIONI 

900 IF AS-”I” THEN 1290 


910 IF A$-”A” THEN 1390 

920 IF A$-"N" AND N>0 .THEN 

F~N : GOTO 300 

930 IF A$-”S” AND S>0 THEN 

P-S : GOTO 300 

940 IF A$-”E” AND E>0 THEN 

P”E: GOTO 300 

850 IF A$= ”0 " AMD O>0 THEN 

P _ 0: GOTO 300 

B90 REM DIREZIONI NON PRATI CAB 
ILI 

900 PRINr’NON PUOI ANDARE IN QU 
ESTÀ DIREZIONE! ” : GOTO 600 
1000 REM INIBISCE I COMANDI DI 
UNA PAROLA 

1010 FOR 1-1 TD LENCAS1 
1020 IF MIDSCAS, I , 11-” " THEN 1 
100 

1030 NEXT 

1040 PR1NT"USA ISTRUZIONI DI DUE 
PAROLE”: GOTO 690 
1090 REM PARSER: ISTRUZIONI DI 
DUE PAROLE - SEPARA UERBI E 
NOMI- 

1100 FOR SP-1 TO LENCAS) 

1110 IF MID$CA$,SP, 11-" ” THEN 
1130 
1120 NEXT 

1130 UE$-MID$CAS, 1 , 3) 

1140 N0$-M10$CA$, C5F+1) , 35 
1190 REM PARSER: ESAMINA I UERB 
I 

1200 IF UES-’TRE" OR UES~"ALZ” 0 
R UE$“”SOL ” THEN 2000 
1210 IF UE$-”LAS’’ OR UE$- , ’POS" 0 
R UE$-”DEP” THEN 2100 
1220 FRI NT "NON CAPISCO COSA UUOI 
FARE!”: GOTO 690 

1290 REM ROUTINE INDENTAR IO 
1300 PRINT”L' INDENTAR IO DEGLI OG 
GETTI CHE HAI CON TE E’:":I 
N-0 

1310 FOR 1-1 TO 2 
1320 IF OG-iCn— 1 THEN PRINTOL 
SCI): IN-IN+1 
1330 NEXT 

1340 IF IN-0 THEN PR INI "NULLA” 
1350 GOTO 650 
1390 REM ROUTINE AIUTO 
1400 IF P-2 THEN PRINT "NESSUN A 
IUTO! " 
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Personal computer è la rivista Systems per gli utenti Commodore, MSX, Sinclair. 
Non solo tre riviste per tre diversi utenti: Personal Computer è anche un'idea nuova 
per far comunicare tutti gli hobbisti. Personal Computer: 128 Kbytes di rivista, tutti i 
mesi in edicola. L’abbonamento cumulativo a Computer e Personal Computer costa 
solo L 65.000, 



ti mercato si evolve . 
Anche noi. 




GIOCHI 


1410 GOTO G30 

1420 IF P-14 THEN PRINT "MA UÀ! ! 

il 

1430 GOTO B90 

1390 REH ROUTINE "PRENDI" 

2000 FOR I“1 IO 2 

2010 IF OGSCD-NQS THEN £040 

2020 NEXT 

2030 PRIMI "NON PUGI!":BOTD 690 
2040 IF OC«n-l THEN PR1NT”L’ 
HAI GIÀ' PRESO!”: GOTO 600 
2050 IF 06*4 C I X >P THEN PRINT”^0 
N E’ QUI F ” : GOTO 600 
2060 PRINT ”UA BENE! OG^C I D--1 
2070 GOTO 600 

2030 REM ROUTINE "LASCIA” 

2100 FOR 1-1 TO 2 

2110 IF OGSCn-NDS THEN 2130 

2120 NEXT 

2125 PRINT "NON PUOI!”:GOTO 600 
2130 IF aG**CIK>-l THEN PEINT"N 
ON L’HAI CON TE ! ” : GOTO 600 
2140 PRINT ”UA BENE ! ’’ : OG-S < I )*"P 
2150 IF NO$-"SPA" AND P-2 THEN 
P-3:G0T0 300 

2160 IF NQ3>-”SAC ” AND P-14 THEN 
P-15: GOTD 300 
2170 GOTO 690 

5099 REM LUOGO 2 

5100 print”cclear:ad EST SULLA P 

ORTA UNA GRANDE STATUA 

* 

5110 PRINT "DEL DIO. UNA MANO E ’ 
PROTESA. SEMBRA AT-” ; 

5120 PRINT "TENDERE QUALCOSA." 
5130 N-0:S~7: 0-0: E-0: GOTO 390 
5193 REM LUOGO 3 
5200 PR I NT ”C OLEARI UN BASSO CORRI 
ODIO RICOPERTO 01 LEGNO. 
5210 N-0 : S-0: 0-2 :E-4; GOTO 390 

5299 REM LUOGO 4 

5300 FR1NT"CCLEAR3UNA GRANDE STA 
TUA DEL DIO. SULLA MANO 

5310 PRIMI "DESTRA UARI OGGETTI. 

UN UASO 01 PERLE. " 

5320 N-0:S-0; 0-3: E-0: GOTO 390 

5399 REM LUOGO 7 

5400 PRINT”CCLEAR3LA PICCOLA SAL 
A E’ UUDTA." 

5410 N-2:5-0: 0-0: E=B : GOTO 390 


5499 REM LUOGO 8 

5500 PRINT”CCLEAR:uMA PICCOLA ST 

ANZA. LUNGHI MANTELLI. AR-” 

* 

5510 PR 1NT "MATURE . ” 

5520 N-0: S-13: 0-7: E-0: GOTO 330 
5538 REM LUOGO 11 
5600 PR I NT "C OLEARI UNO STRETTO CO 
RRIDOID . LA GRANDE PORTA ’’ 

ifl 

5610 PR I NT "AD QUEST E 1 CHIUSA PE 
R SEMPRE." 

5650 N-0:S«0;O-0:E-1£: GOTO 390 
5693 REM LUOGO 1E 
5700 print”eclear:una PICCOLA 5T 
AN2A RICAUATA NELLA ROCCIA" 
5710 PRINT”* TRE PASSAGGI * * 

57E0 N*0 : 5“17 : 0*11 : E* 13 : GOTD 390 
5799 REH LUOGO 13 
5000 PR I NT^CCLEARIUNA GRANDE SAL 
A □□MINATA DAL DIO 5H1UA. " 
5910 N-0 : 3-0 : 0-15 : E“14 : BOTO 330 

5899 REM LUOGO 14 

5900 FRI NT” C OLEARI CONTRO LA PARE 

TE DI FONDO UNA GRANDE 

* 

SS 10 PRINT "STATUA DEL OIO-ELEFAN 
TE. LA SUA PROBO- 
5920 PRINT "SDITE OSCILLA. SEMBRA 
CHIEDERE QUALCOSA.” 

5330 N-0:S-0: 0-13: E-0: GOTO 390 

5999 REM LUOGO 15 

6000 PRINT’’CCLEAR3SE1 USCITO DAL 

TEMPIO. LA PACE E LA 

* 

6010 PRINT "PROSPERITÀ ' TI ACCOMP 
AGNERANNO . ” 

6020 N-0: 5-0; 0-0: E-0: END 

6099 REM LUOGO 17 

6100 PR I NT ” C CLEAR ] UN LUNGO CORRI 
DO IO CON UNA STRETTA PAS- ” 

6110 FRINT”5AT0I A . ” 

5120 N-12: S-22: 0-0: E-0: GOTO 390 

6199 REM LUOGO 22 

6200 PRINT” Il OLEARI UNA PICCOLA ST 
ANZA CON LUMINOSI DISEGNI.” 

6210 N=I7: 5=0: 0=0: E=23: BOTO 390 
6239 REM LUOGO 23 
6300 PRINT”CCLEAR3UNA UASTA STAN 
ZA CON PREZIOSI DIPINTI. 
6310 N=0 : 5=0 ; 0=22 : E=0 : BOTO 390 
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U UTILE 


C 128 

Metti un tigre 
nel tuo 128 


Una piccola incompatibilità 
dei 64/128 da sfruttare 
a nostro vantaggio 


Di Roberto Mango 


stupenda tastiera del Commo- 
dore 128, e la velocità di 2 Mhz del 
suo microprocessore, sembrano pur- 
troppo utilizzabili solo in modalità 
1 28 e. nel secondo caso, addirittura se 
in possesso del monitor a 80 colon- 
ne. 

Portando il computer iti modalità 
C/54, tali caratteristiche vanno per 
dute, a meno di non utilizzane parti- 
colari accorgimenti (vedi il program- 
ma "Supertasliera" pubblicato su 
CCC N .35). 

Nell’articolo citato, infatti, era pos- 
sibile utilizzare il C/64 a 2Mhz, a pat- 
to però di rinunciare al video, nel 
senso che, ad alta velocità, lo scher- 
mo si riempiva di caratteri ìneom- 
prensibili che scomparivano solo 
tornando alla velocità normale. 

Il programma-di queste pagine per- 
mette di ottenere contemporanea* 
mente la tastiera 'estesa 1 ' c la velocità 
di 2Mhz della CPU senza dover riiui- 
ciare al video. In questo caso Tau- 
mento di velocità è di circa il 50% ri- 
spetto al normale funzionamento del 
Commodore 128 in modo 64. 

L'utilità di una simile modifica è 
intuitiva: da un lato sveltire il proces- 
so di input di lunghe liste di dati at- 
traverso il comodissimo tastierino 
apposito, e dallaltro aumentare La 
velocità di esecuzione di un pro- 
gramma. 



Come usare il programma 

Interamente in Linguaggio Mac- 
china, il programma permette, trami- 
te SYS, di attivare o disattivare il ta- 
stierino numerico e la nuova fre- 
quenza di dock. 

Dopo il caricamento delle linee di 
data, il computer visualizzerà, con 
somma gioia degli smanettoni, gli 
“entry points" delle varie routine 
che utilizza: 

SYS 49152 * tastiera espansa 
SYS 49232 - tastiera normale 
SYS 49440 - clock a 2Mhz 
SYS 49556 - dock a lMhz 

Due sono le routine del program- 
ma, utilizzabili contemporaneamen- 
te, che provvedono ad altrettanti 
compiti. 

La prima modifica la routine di 
scansione delta tastiera (keyboard 
scanning) affinché possa leggere tutti 
i tasti. Per quanto riguarda i tasti di 


Nel digitare righe di programma ba- 
sic che contengono istruzioni DATA, 
è piuttosto facile incorrere in errori efi 
digitazione Supponiamo che un h ipo- - 
letica linea basic numerata con 1 200 
debba contenere i tre valori 123, 
456,789 Ecco alcuni esempi di erro- 
ri piu frequentemente commessa 

1200 DATA. 123 456.789 

Cè una virgola dopo la parola 
‘ DATA I dati letti dal computer so- 
no, in questo caso, quattro: 0, 123. 
456 789 Se, infatti, non figura alcun 
carattere dopo l'istruzione DATA, au- 
tomaticamente viene assunto il valo- 
re nullo (0) 

1200 DATA 123.456.789 

In questo caso, dopo it numero 
789, il computer, grazie alte presen- 
za della virgola erroneamente inseri- 
ta. “crede" che ci s+a un altro valore 
e, non trovandolo. k> assume come 
nullo (0). 

1200 DATA 1234,56.789 

La virgola è posizionata male, vale 
a dire dopo il carattere *‘4” e non 
dopo il carattere "3'\ Il computer non 
può sapere se il valore esatto è 1 23 
oppure 1234 e individuare un errore, 

I in questo caso, risulta piuttosto 
laborioso 
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LUTILE 


CSC TAB, ALT, HELP. LINE FEED. 
NO SCRÒLL, ad essi assegna i se- 
guenti codici ASCII : 


ESC normale; ChrS (27) 

ESC shiftato: Chr$ (27) 

TAB normale: ChrS (9) 

TAB shiftato: ClirS (24) 

ALT normale: ChrS (14) 

ALT sfrìttalo: ChrS ( 142) 

HELP normale: ChrS <8) 

HELP shiftato: ChrS (9) 

LINE FEED normale: ChrS (IO) 
LINE FEED shiftmo: ChrS (IO) 

!NO SC’ROLL normale: ChrS (J) 
NO SCROLL shifato: ChrS (3) 


La seconda routine cambia la fre- 
quenza d i clock dei sistema a 2 Mhz e 
modifica iintcrrupt in modo tale da 
consentire la gestione anche delle 40 
colonne: il risultato, essendo un com- 
promesso, limita la percentuale di in- 
cremento della velocità al 50% 


1 programmi dimostrativi 

Assieme al programma presentia- 
mo due programmi utili per dimo- 
strare lincremento della velocità 
del computer. 

Il primo e u n semplice ciclo di ritar- 
do con le istruzioni FOR-NEXT da 1 
a 10000: il secondo genera 28 stringhe 
nclfarray X$, ognuna di 5 caratteri 
casuali, e poi le ondina alfabetica- 
mente con una procedura di Dub- 
bie SotL 


Limiti di utilizzò 

Questo programma quindi è utilis- 
simo in molte delle applicazioni di 
gestione di calcoli con il C/64, Unico 
suo neo c l'impossibilità per la CPU 
di colloquiare con le periferiche: per- 
tanto si consiglia di disattivare la ve- 
locità di 2 Mhz quando sì desideri re- 
gistrare, caricare, stampare dati con 
una periferica. 

Un altro limite è rappresentato dal 
fatto che, caricando programmi pro- 
fessionali, si rischia di veder bloccare 
il sistema oppure di ritornare alla ve- 
locità e tastiera "normali" dal mo- 
mento che molti programmi, a causa 
di protezioni varie, modificano J’in- 
terrupt appena vengono caricati, e 
non c’c modo di evitare questo 
inconveniente. 


100 REM 5UPER-54 

110 REM BY ROBERTO PIAR I GO 

100 ; 

130 POR 1-49158 TO 49660; READ A 
: Y- Y+A r FOKE I t A : NEXT I 

140 IF Y< >59049 THEN PR INFERRO 
RE DI TRASCRIZIONE 1 ’: END 

150 POKE 53890, 7; POXE 530Q1,6;P 
RINTCHRSC 1471 "SUPER 64°:PRI 
NT: PRINT 

160 PRINT TABC5 ) "SYS 49158 : SUP 
ER-TASTIERA" 

170 PRINT TABC 5) J, SYS 49838 :1A5 
Il ERA NORMALE”: PRINT 

100 PRINT TAB (5> "SYS 49440 ; SUP 
ER UELOCI IR 1 " 

190 PRINT I ABC 5 3 "SYS 49556 : QEL 
□CITA* NORMALE” 

000 END 

010 DATA 8,78, 180 , 173 , 80 , 3 > 801 , 
110, 173,01 , 3, 833 , 190,040,10 
1 173 

000 DATA 00,3,141,030,180,173,0 

1,3, 141 , 033 , 190,173,0,3,001 
,74 

£30 DATA 173,3,3,233, 192, £40. 12 
, 173, 2, 3, 141,234, 132,173,3, 
3 

240 DATA 141,235,192,183,110,14 
1,20,3,189, 192,141,21 ,3,169 


,74,141 

250 DATO 2,3,183,192,141,3,3,10 

4.40.96.44.0. 132. 109.234.13 
2 

260 DATA 8,72,120,173,232,132,1 
41,20,3,173, 233 . 132,141,21. 
3,173 

270 DATA 234,132,141,2,3,173,23 
5, 132, 141,3,3,104,40,36,163 
,64 

2B0 DATA 133,203,41,0,141,47,20 

9.9.255. 141.0. 220.205. 1.220 
,240 

290 DATA B6. 160, B9, 169,251, 141, 
47 , 209 ,72,173,1, £20 , £05 ,1,2 
20 , £09 

300 DATA 249,162,9,10,178,2,132 
, 203 , 136 , 192 , 65 , 144 , 7 , 202 , 2 
08,243 

310 DATA 104,74,16,225,104,173, 
141,2,10,201,9, 144,2, 169,6, 
170 

320 DATA 199,224,132,133,245,19 
3,225, 132, 133,246,32,213,13 
2,32, 224 , 234 

330 DATA’ 32,213, 132, 169,255,141 
,47,209,41,127,141,0,220,16 
4,203,140 

340 DATA 236,132,109,232,192,16 
5 , 197, 174 , 236, 132 , 141 , 236 , 1 
32,134,137,36 

350 DATA 171,192,135,132,135,13 
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L’UTILE 


2, 171, 132,43,234, 131, 164 ,64 
, ti , 56 , 55 

360 DATA 9, 50, 52,55, 49, È?, *±3, 45 
, 10,13,54,57,51,14,48,46 

370 DATA 145,17,157,23,3,3,56,5 
3 , £4 , 50 , 53 , 55 , 43 , £7 , 43 , 45 

360 DATA 10,13,54,57,51,146,40, 
46, 145, 17, 157, £5, 3,0, £55,0 

330 DATA 8,72,150,173,60,3,601, 
131,173,61,3,633,133,240, 12 
, 173 

400 DATA 20, 3, 141 ,246, 153 , 173,6 
1 ,3,141 , 643, 133, 173,6, 3, 601 
, 142 

410 DATA 173,3,3, 633 ,193, 240 , 12 
, 173,2,3, 141 , 230,133, 173,3, 
3 

420 DATA 141 , 251 , 133 , 163 ,131,14 
1 , 20,3,163,133, 141,21 , 3, 163 
, 142, 141 

430 DATA 2,3,163,133,141,3,3,16 
3,0,141,48,206,173, 16,208,6 
08 

440 DATA 651, 163,43, 141, 18,608, 
173 , 17 , 208 , 41 , 167 , 141 ,17,50 
8,163,1 

450 DATA 141, 48, 600, 173, 26,508, 
3,1, 141 , 66 , 600 , 104 ,40.36,44 
,35 

460 DATA 133,108,650,133,8,72,1 
20,173,26,200,41,254,141,26 
,608,163 

470 DATA 0,141,48,508,173,546,1 
33, 141,50,3,173,543, 133,141 
,51,3 

430 DATA 173,250,133,141,2,3,17 
3,651,133,141,3,3,104,40,36 
, 176 

430 DATA 55,508,40,7,173,13,560 
,88, 106, 54B, 133, 152,74, 144, 
243, 140 

500 DATA 25,208,173,40,208,73,1 
, 141,48,208,74,176,3, 163,65 
0, 44 

510 DATA 163,43,141,10,600,104, 
168 , 106 , 163 ,4,1, 508 , 3 , 555 , 5 
,1 

550 DATA 655,4,1,104,170,104,40 
,36, 110,135,74,135,0 

530 END 


100 REM DENO PER SUPER-64 
110 : 

150 REM CARICARE E CANCI ARE IL 
PROGRAMMA IN L.M. PRIMA DI 
UTILIZZARE LA PRESENTE 
130 REM ROUTINE DIMOSTRATILA 
140 : 

150 SY5435S6: PRIMI CHRSt 147) ; TA 
BC10) "ATTENDI 63...":UU— 1 
160 DIN X9K23) 

170 FOR 1-0 IO 63: REM GENERA CA 
SUALMENIE 100 STRINGHE DA 5 
CARATTERI CIASCUNA E 
1B0 POR 11-0 IO 4: REM METTILE N 
EL LETTORE X# DA 0 A 53 
130 XSCD-XSCD+CHRStttNDC .>*66+ 
65 > 

500 PRINlCHRStlS) I :NEXTII : NEX1 1 
: REM ESEGUI UN BORI ALFABE 
TI CD DELLE SIRINGHE 
510 TI #-"000000" 

550 F-0:FOR 1-0 TQ 58:PK1NICHRS 
( 13)CHRSC17) 1 

530 IF XSCIXXSCI+l) THEN XS-X# 
CI): XSC I )-X£C 1+1) : X#C I+l)-X 
S: XS-""i F-l 
540 NEXTI 
250 IF F THEN 220 
260 UU-UU+1:IF UU-i THEN PRIMI: 
PR INI "SECONDO 

270 PRINT’TEMPO I MP I EGATO : "T I# 
280 SYS43440: PRIMI : IF UU-0 THEN 
CLR : GOTO 160 

230 SY543236 : SYS43556 : REM HI FRI 
STIMO LALORI NORMALI 


100 REM DEMO 1 PER SUPER 64 
110 : 

120 SYS43556 
130 T 1S-" 000000” 

140 FOR 1-0 IO 10000: NEXT 
150 PRI NT "TEMPO IMPIEGATO NORMA 
LMENTE : "II# 

160 SYS4S440 
170 T I S-" 000000 ” . 

180 FDR 1-0 TO 10000: NEXI 
130 PRINT" TEMPO IMPIEGATO CON S 
UPER-64: "II# 

200 SYS49556 
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GRAFICA 

COMMODORE 64 

Mini disegni 

con la tua 
stampante 

Un simpatico programma di Hard Copy di 
schermate in bassa risoluzione per 
le applicazioni più disparate 

di Gabriele Cassetti 


(Questo brevissimo programma 
consente di disegnare silfio schermo 
del C/64, in bassa risoluzione, una 
qualsiasi figura e, in seguito, di ripor- 
tarla su stampante. 

Ciò che viene riprodotta c una pic- 
cola immagine larga 4(1 dot ( = pixel 
di stampante) c alta 25 dot. 

Come avrete intuite) guardando le 
figure pubblicate, ogni carattere del- 
lo schermo sarà rappresentato da un 
punto nero su carta, mentre lo spazio 
bianco non verrà tracciato. 

La tecnica di programmazione a- 
doperata sarà preziosissima per co- 
loro che desiderano approfondire le 
proprie conoscenze sull'alta risola- 
zione della stampante, dal momento 
che si sfrutta intensamente la pro- 
grammazione dei caratteri. 

lì programma è suscettibile di note- 
voli migliorie» come la possibilità di 
memorizzare, su nastro o disco, i di- 
segni eseguiti. 

Il tempo di elaborazione può sem- 
brare Lungo» a causa della lentezza ti- 


pica del Basic. Chi possiede un com- 
pilatore potrà ovviare allinconvc- 
niente senza alcuna difficoltà. 

Al lettore, come al solito» il compito 


di effettuare eventuali personalizza- 
zioni e di.*, divertirsi con questo 
listato-gadget certamente nuovo e 
originale, 
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franke 


<0)* + <S)* + <Lj) + 


(") r 


"m .X -J- 

T. . _u'Ì‘ JP 


BORRITI ? BORRII* Jf BORRI»! f BORRIElf 50RF;II<! f SORRIDI f BORRII»! f* BORRII»!* BORRI»! f 50RRIIH* 


100 REM MINI -SCHERMATE SU STAMP 
ANTE 

110 REM PER C/64 & STAMPANTI MP 
5-303 E COMPATIBILI 
120 REM BY GABRIELE CASETTI 
130 REM FIRENZE 
140 : 

1S0 OIM Accasi :POKE 650,186 
160 GOSUB 410 

170 POR T-50151 TO 50311 : POKE T 
, 32 : NEXT 

180 POKE 53200,0: POKE 532S1,2:P 
QKE 646,0 

190 POKE 19B , 2 : POKE 631, 20: POKE 
632,20 

200 INPUT "CCLEART"; AS 
210 FOR T-0 TO 999: POKE 49152+T 
, PEEKC1024+T) :NEXT 

220 INPUT "[OLEARIE NERO 1 QUANTE 
NE STAMPO MAX 12" ;N 
230 IF N< 1 OR N> 22 THEN 220 
240 INPUT "CDOUND MARO INE SIN, I 
N 00T” ; M 
250 MM~4B0-N*40 

260 IF M<0 OR M>Mt1 THEN PRINTMfl 
"MAX”: GOTO 240 

270 OPEN 1 , 4: PRINTttl ,CHRSC 131CH 
RSCB1 ; 

280 FOR RG-0 TO 3 
290 PRINT#1 , CHRSCÌ5) TABCM/61CH 
R$C6) j 

300 FOR X-0 TO 39:G-12B 
310 FOR R-0 TO 6: I **49152+X + RG*»7 
*40+R*40 


320 IF PEEKC 1 )< >32 AND FEEK(I>< 
>96 THEN G-G+2TR 
330 NEXT : A"* (X2=G : NEXT 
340 FOR C-l TO N : FOR X-0 TO 39: 
PR INTttl , CHRSCA’iCXl 1 ; : NEXT : N 
EXT 

350 PRINT#1 : NEXT 
360 PRINT#1 . CHRSC 15)CHR$C 131CHR 
$C 13 J : CLOSE 1 

370 PRINT” COLE ARI ANCORA CS/N> ? 
3B0 GET A$ : I F A$-”5” THEN 220 
390 IF AS<> "N” THEN 390 
400 END 

410 POKE 53280,6: POKE 53261,4: P 
OKE G46 , 0 

420 PRI NT "COLE ART MINI-DISE0 
NINI CON LA STAMPANTE" 

430 PR I NT ” 

BY 0 1 NOSOFT ’’ 

440 PR INT ”[ DOWN J PREMI UN TASTO 
E UEDRAI LO SCHERMO PULÌ TO 

99 

i 

450 PRINT"C DOUNTMUOUI IL CUR50R 
E CON GLI APPOSITI TASTI” 
4E0 PRINT”E FAI IL TUO DISEGNO 
TENENDO PRESENTE CHE : " 

470 PR INT "tDOWNJ SPAZIO « PUNTO 
NON STAMPATO 

4B0 PR I NT ”T OOWNT GL I ALTRI CARAT 
TERI * CRUS1 PUNTO STAMPATO 
CRUOFFj” 

490 PRINT-CDOUINT ALLA FINE PREM 
I RETURN" 

500 POKE 19B , 0 : UÌA I T 19B,1 
510 RETURN 
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GW-BASIC 

C64 - PC 10/20 - IBM PC 


Il primo giorno di scuola 


Le prime applicazioni grafiche del 
nuovissimo simulatore di Gw-Basic 
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Il Gw- Basic, come tutti sapranno, è 
un linguaggio interprete che gira su 
computer Ms-Dos, vale a dire IBM 
e compatibili. 

Come annunciato i! mese scorso è 
ora disponibile in edicola una versio- 
ne anche per il Commodore 64 e la 
presente rubrica è dedicata al “nuo- 
vo" linguaggio. 

Lo scopo principale di queste pagi- 
ne, dedicate agli acquirenti della no- 
stra cassetta (e agli utenti dei Com- 
modore PC 16, 20 e compatìhi 1 i), sa ra 
quello di illustrare in dettaglio le i» 
struzioni di programmazione e, so- 
prattutto* mettere in evidenza le simi- 
litudini c dì seguaglianze tra la ver- 
sione originale e la nostra. 

La caratteristica principale del Gw- 
Basic è quella di essere molto versati- 
le, ovvero di fornire un set di istruzio- 
ni idoneo a risolvere facilmente i 
molteplici problemi che sorgono in 
fase di strunu razione di un pro- 
gramma. 

I^a versione C/64 

Considerata la notevole diffusione 
dello standard IBM e compatibili* e 


le numerose richieste pervenute da 
parte dei lettori, abbiamo pensato di 
fare cosa gradita realizzando una 
versione del Gw- Basic funzionate 
anche sul Commodore 64. 

Questa, ovviamente, non ha la pre- 
tesa dì essere uno strumento di pro- 
grammazione essendo in certi punti 
molto più “ristretta" e meno potente 
del corrispondente Basic IBM, ma, 
scritta pnncipal mente a scopo didat- 
tico. ha il notevole pregio di avvicina- 
re latente del piccolo Commodore al 
“misterioso 1 ' mondo dei personal 
computer. 

Dal momento che la maggior parte 
delle scuole di informatica (e non) ha 
adottato il PC -IBM come strumento 
didattico, la nostra realizzazione of- 
fre la possibilità agli studenti* che 
non possiedono un "compatibile", dì 
esercitarsi anche a casa, risparmian- 
do quindi tempo c riuscendo ad otte- 
nere risultati migliori che non lavo- 
rando soltanto a scuola, 

I listati Gw-Basie che pubblichia- 
mo* e pubblicheremo, saranno in 
grado di funzionare allo Stesso modo 
sul C/64 c su un Ms-Dos senza ap- 
portare modifiche; altri listati, inve- 
ce, richiederanno lievi variazioni, 


dovute soprattutto alle differenze in- 
trinseche tra le due macchine, co- 
struite originalmente su standard (e 
microprocessori) completamente di- 
versi. 

La rubrica affronterà principal- 
mente due temi diversi: il primo pro- 
porrà listali funzionanti indifferente- 
mente su entrambe le macchine allo 
scopo di facilitare la comprensione 
delle istruzioni del Basic; il secondo 
tratterà dettagliatamente ogni singo- 
la istruzione compie meritando il ma- 
nuale di istruzioni fornito con il na- 
stro cassetta, e rivelerà anche alcuni 
“micchi" atti ad utilizzare al meglio 
le caratteristiche del linguaggio. 

Il primo impatto 
con il gw-Basic 

Dopo avere caricato il Gw-Ra*sic 
apparirà la schermata iniziale e sa- 
ranno così disponibili un centinaio 
di comandi aggiuntivi oltre a quelli 
standard Commodore, 

La prima differenza che balza al- 
l’occhio, a parte il diverso numero di 
byte liberi e la diversa intestazione, è 
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la presenza di messaggi visualizzali 
sulle ultime due righe di schermo. 

Queste non sona altro che le inte- 
stazioni di quattro degli otto tasti 
funzione programmabili e non sa- 
ranno in alcun modo alterate da e- 
ventuali sovra se ri dure o scroll di 
schermo. 

Se risultassero fastidiose per qual- 
che particolare applicazione sarà 
sufficiente disabilitarle con il co- 
mando KEYOFF (KEYON per riat- 
tivarle). Ricordiamo che il comando 
analogo per il 14 vero” Gw-Rasìc ri- 
chiede lo spazio tra le due parole 
(Key Off). 

A questo punto si è pronti per scri- 
vere programmi servendosi delle 
nuove ignizioni, Ribadiamo ancora 
una volta che TUTTE le ' vecchie ' i- 
struzioni del Basic Commodore sono 
ancora disponibili; ciò permette una 
totale compatibilità con i listati Basic 
già in vostro possesso, compresi 
quelli che gestiscono gli sprite! (a pat- 
to di rinunciare al comando Keyon). 


Un semplice programma 

Per prendere familiarità con il nuo- 
vo sistema provate a digitare il se- 
guente programmino: 

IO SCEEEN 1:CL5 i 

20 CIRCLE C1GG, 100} .SO 

30 LINE CS0 t 10)-t2S0 1 lB0> T i.B 

40 PfllNTClB0,iero 

S0 IF I NKEY$< >CHH$ £32 3 THEN S3 

60 SCEEEN 0 : CLS 


Dopo il RUN comparirà una cir- 
conferenza racchiusa in un rettango- 
lo;, per tornare al modo testo è suffi- 



ciente premere la barra spaziatrice. 11 
programma è a utoes plica rivo per cui 
lasciamo il compito al lettore di indi- 
viduare il funzionamento delle varie 
istruzioni 

In modo Gw-Basic i tasti Run/Stop 
e Restore sono disabilitali; il primo è 
sostituito dalla combinazione di tasti 
CTRL-C mentre il RESTORE, da so- 
lo. va usato soltanto iu caso di neces- 
sità poiché provoca non solo un re- 
start del Basic, ma pone lo schermo 
in modo testo e non salva i puntatori 
per Te venutale CONI. 



Sarà bene sottolineare che l'istru- 
zione Paint (che colora un'area deli- 
mitata di schermo) richiede, in certi 
casi, un tempo relativamente lungo. 
Durante il suo funzionamento la ta- 
stiera viene disabilitata e la pressione 
del tasto RESTORE sembra non sor- 
tire alcun effetto. Sarà quindi suffi- 
ciente attendere che il contando ven- 
ga completamente eseguito prima di 
“riprendere" il programma. 

I primi listati 

in questa prima “ puntata" abbia- 
mo deciso di inserire alcuni listati 
funzionanti senza variazioni sia su 
IBM (dotato di scheda grafica) che su 
Commodore dotato dì Gw-Basic. 

Sono tutti semplici dimostrativi di 
tipo grafico, ciascuno dotato di parti- 
colari funzioni del Basic e non ri- 
chiedono alcun commento grazie al- 
la loro semplicità. 

lì lettore inesperto è naturalmente 
invitato a digitarli cercando di capir- 
ne il funzionamento ed eventual- 
mente ad apportare modifiche e va- 
riazioni di suo gradimento. 


Anche su disco! 

Coloro die desiderami procurarvi 
Gw-Basic su disco devono inviare in Re- 
dazione la modica cifra di L.254HHC (ol- 
tre a LJlKM! per le spese di spedizione). 
Non ci è possibile, infatti, inviare mate- 
riale contrassegno. 

Compilate un normale modulo dì C/C 
postale indirizzando a: 

C/C postale N* 37952207 
Systems Editoriale 
Viale Famagosta, 75 
20142 Milano 


Non dimenticate di indicare chiara- 
mente, sul retro del modulo (nello spa- 
zio indicato con “Causale dei versamen- 
to’ 1 ') non solo il vostro nominativo com- 
pleto, ma anche il nome del software 
desiderato: 

"Simualtore di Gw-Basie" su disco. 

Chi volesse ricevere più celermente la 
confezione può inviare la somma richie- 
sta mediante assegno circolare oppure 
normale assegno bancario (non (rasferi- 
bile o barrato due volle) intestalo a: Sy- 
stems Editoriale, 


1 In. normale modulo di conto corren- 
te, infatti, impiega circa due mesi (pro- 
vare per crederei) per giungere al nostro 
indirizzo. Una lettera, invece, arriva an- 
che in una sola settimana. 

Inviate l'assegno, accompagnato da it- 
ila lettera in cui specificate la richiesta, 
al solito indirizzo: 

Systems Editoriale 
Viale Fa ma goni a, 75 
211)42 Milano 
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100 REM CRAZY BAR 

110 REM UEESIONE nS-DD5 

120 REM celi 64 + GW- BASIC SIMULATOR 

130 j 

140 SCFEEN li CLS; CLS 1 

150 Xl-SBi ¥1-50: X£^l50; Y5-100 

ISO XI -S:YI-5: XJ-S: YJ"5 

170 LINE CXA,YA}~CXB, YB},0 

103 LINE (Xl« Y1}~CX£, Y5),l 

130 XA-X1: YA-Y1 :XB-X2; YB-Y2 

200 1F X1+XK0 OR Xl+XI > 3£0 THEN XI* 

ei0 IF X£+XJ«0 OR X5+XJ>3£0 THEN XJ- 

550 IF Yl+Y I < 0 OR Y1 + VI > £00 THEN Yl- 

£30 IF Y5 + YJ<0 OH Y£+YJ>P0O THEN YJ- 

£43 X1-X1+XI;X£-X£+XJ 

£53 Yl-Yl+YT ; Y£*Y5+YJ 

£50 GOTO 170 


‘“XI 

-XJ 

f “Y I 
-YJ 


IO REM POLIGONI 
£0 : 

30 CLS 

40 Pl-3, 14153365 

53 INPUT "QUANTI LAT1";L 

50 SCREEN 1 : CLS 1 

70 P 5 ET ( 160 , 50 } 

a® FOJ? K— PI TO pr STEP £*PI/L 

33 LINE -*( SIN (K 5 + 05+1 63 , COSCIO *■ 00 + 100 } 

100 NEXT K 

110 LINE ”(160„£0} 

120 ìf INKEYSO" ,l THEN 150 
130 SCREEN 0:RUN 


5 REM STAR 
G : 

13 SCREEN 1 ; CLS 1 ; CLS 
15 P I *3 ♦ 1415SS6S 
£0 FDP K-3 TO 533 STEP 13 
30 LINE CO, K5-CK-1 ,6 T 200} T 1 
43 LINE CK*1 .6, 0)-(3t?0, K} , 1 
!50 NE XI K 

6S FGR K" . 03001 TO 1 STER .1 

70 CIRCE E ClBO.iOG^Opl.a.e+PItK 

7S CIRCLE (150, 100) , 70-K T 1. 0.5*PÌ , K 

00 NEXT K 

90 POR K-l IO 500 

100 X-RND(1}*3£0’ Y-RNDC15+503 

110 P5ET ( X , Y3 

150 NEXT K 

130 IF INKEY*<>CHR$(13} THEN 130 
OROLOGIO 


10 REN ROTAZIONI 
50 ; 

30 CLS 

40 PI ™3 ► 14.153565 

SO INPUT ^QUANTI LAI I " ; L : ! F L<1 THEN 30 
63 SCREEN 1;CL5 1 
70 PSET ( 160 „ 100) 

SO FOR J-0 in 90 STEP S:fi-0 

90 FDR K-CPI/30X-J-PI IO PI +( Pl/90}* j+pj / 10 ST EP 5+R3/L 
100 IF A-0 THEN A-iiPSET (SI N( J+J/ 1G)+160 , C05CK )*J+100} 
110 LINE -CSINCK)*(J + J/16)+163 P COSCIO + J*! 00) 

150 NEXT K : NEXT J 

130 IF INKEYSO" " THEN 130 

140 SCREEN 0 : RUN 

POLÌGONI 


5 REM TIME 
5 ; 

IO CLS: PI-3, 141S3565 

£0 DIN AXCG35, AY(63),BXCG3},SY(60).CX(6O) 1 LY(SO:i 
30 Din DXC60 ) , DYC60) 

40 A-0:FDRK-RI TO -PI STEP -PI/30 

50 X*S I NCK5 : Y“COSOO 

60 AX(A)'X+90 + lG0:tìYCA)“V*SO+100 

70 BXCA}-X*Q0+160:BY(A}-Y*S0*100 

00 CXCA)”X+70+lG0: CY( A )“Y*70+I@0 

90 DXCA)-X*S0+16O-DY(A}*V+50+130 

100 A-P+l : LOCATE I.IìPRINT A; NEXT 

110 CLS: PRINT P, INSERISC1 L'ORA C HH : nìl ; SS) ,J 

150 LINEI NFUT R3;G05<JB 1000: IF LENCTUÌE$)>7 THEN T J MLSJ-ìlìS ELSE TINES-AS 

130 SCREEN 1 

140 CLS 1 : CLS 

150 FQR X** 0 TO S9 

1G0 PSET (AXCX3 ,AY(K}5 

170 IF K/5<> INTCK/S1 THEN 1S0 

183 LINE (AXCK5 , AY( K} 5 -(EXC K5 t BYC X 5 ) + 1 

ISO NEXT K 

£03 BS-TIN£$;1F LENCTinEÌ}>7 THEN G05UB 1300 ; ELSE AS-TIMES 
535 FOR K-l TO 6 STEP £ 

£10 A(INT<K/£}}-UAL(MIDSCftS, K,5) ) : NEXT K: A(0)-1£*C A(05 / 1£-INI(AC0)/ 1£)) 
553 LINE (160, 100)“<CX(A(£}>,CY(AC£))), 1 

£30 IF A10AC5) THEN LINE C 150 . 10fl}-(CX( Al } * CYCA1 > ) , 3 : Al-ftCE) 

543 LINE C 16® * 100?-(CX< A< 1 ) > , CYCAC 1 ) ) ) , 1 

£50 IF A£OA<l) THEN LINE < 150 , 1001- (CXC AE) , CYCA5} ) , 0 : A£-At 1 3 
£G3 L“ AC0 ) *5+ INT( A( 1 )/12) ; LINE C 160, 100)-tQXCL3 , DYCL 3 ) . 1 
573 IF LOA3 THEN LINE ( 160 , 1O0)-CDX( A3) . DYCA3) },0: A3“L 
579 C$-R$ 

SS3 ES-TIME$:IF LEf4(TIME$}> 7 THEN GC5UB 10BB:EL5E AS-BS 
5S5 IF AS-CS THEN 590 
£93 GOTO 500 

1000 A£'L£FT*CB$ t £)+niDSCBS 1 *i # S)+RIGHISCB$ T E} : RETURN 


1£*(A(0) f l£“INFt AC0) /1£> J 
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DIRECTORY 


QUALSIASI COMPUTER 



irectory N.4 


Che cosa c'è nella nuova Directory? 



I nostri lettori sono ormai abituati 

alle sorprese (in senso buono...) e* or- 

mai, il fatto che vi siano tanti file, da 

riempire quasi per intero il disco, 
non fa piu notizia. 

Stavolta ricorderemo soltanto che 
su Directory vengono inseriti TUTTI 
i programmi pubblicati su questo fa- 
scicolo di Commodore Computer 
Club, TUTTI t programmi Commo- 
dore che è possibile trovare sulla rivi- 
sta Personal Computer che, in con- 
temporanea, potete trovare in edico- 
la, c altri file vari che, almeno finora, 
sono stati apprezzati in pieno dai no- 
stri lettori: musiche nell interro pt da 
usare nei vostri listati, set di caratteri 
ri definiti, utility varie e così vìa. 

Non diremo con precisione ìì con- 
tenuto del dischetto, anche perchè 
abbiamo deciso, fin dal numero scor- 
so, di aggiungere all'ultimo momento 
file c programmi che riteniamo in- 
teressanti. 

Ma c'è dì più: per accontentare i let- 


tori che hanno “fretta”, e che non in- 
tendono aspettare i (lunghi) tempi 
del servìzio postale, è possibile ordi- 
nare, oltre alle copie arretrate di Di- 
rectory, anche quella.,, prossima. 

Nel momento, infatti, in cui state 
leggendo queste pagine, in Redazio- 
ne abbiamo già deciso che cosa pub- 
blicare sul prossimo fascicolo (sia di 
C.C.C, sia di Personal Computer) e 
stiamo permettere a punto il dischet- 
to N,5. 

Chi lo desidera, pertanto, può ordi- 
nare Un d'ora DIRECTORY N.Sdal 
momento che. nel tempo che la vo- 
stra lettera contenente l’assegno arri- 
va a destinazione, avremo a disposi- 
zione ìe copie del floppy relative a 
CCC N.39. 

Naturalmente le spese di spedizio- 
ne (L.3000) vanno conteggiate una 
sola volta, da aggiungere al prezzo di 
L. 12000 perciscun dischetto, della se- 
rie Directory I * * * * * 7 , richiesto. 


Partecipazione dei lettori 

Centinaia sono le occasioni per 
partecipare a "Directory". 

Prima di inviare il risultato del 
vostro lavoro vi consigliamo, però, di 
telefonarci per stabilire se risponde 
ai requisiti per leve ntu a le pubblica- 
zione {tei. 02/84.67 J4.8) 

Come procurarsi 
“Directory” 

Avvertiamo i lettori thè NON è asso- 
lutamente possibile inviare ì programmi 
su nastro, per intuibili motivi di econo- 
mia ed affidabilità del nastro cassetti. 

Ugni numero di “Directory" può 
quindi esser richiesto SOLO su disco 
inviando LlZOOfl per ciascun disco 
oltre a L.30W) (fìsse) per le spese di spe- 
dizione (indipendenti dal numero di 
dischi richiesti). 

Non ci è possibile inviare materiale 
contrassegno. 

Compilate un normale modulo di C/C 
postale indirizzando a: 

C/C postale N. 37*52207 
Systems Editoriale 
Viale Tarn agosti, 75 
201-12 Milano 

Non dimenticate di indicare chiara- 
mente, sul retro del modulo (nello spa- 
zio indicato con “Causale del versa- 
mento") non solo il vostro nominativo 
completo, ma anche il nome del disco 
desiderato: 

“Directory N.4" 

N.EL (Yr ottenere il materiale ordinato 
in tempi più ristretti, inviate l'importo a 
mezzo assegno bancario non trasferi- 
bile; le poste italiane non brillano per 
velocità! (due mesi circa per il recapito 
di un C/l' postale). 
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C 64 


Tre nuovi comandi 


Ecco a voi tre routine 
L.M. utili anche a chi programma 
soltanto in Basic 


dì Armando Sfar/i 


Comando Instr 

(2271 1/22781) 

Capita sovente di dover controllare 
se al rinterri a di una stringa alfanu- 
merica sia presente una particolare 
successione di caratteri, in modo da 
sostituirli, cancellarli, od altro. 

Il Basic del Commodore 64 non 
prevede un comando specifico e ne 
consegue che tale operazione va at- 
tuata tramite altre istruzioni, con ine- 
vitabile complicazione del program- 
ma. 


Ad esempio, in Basic V2, il proble- 
ma esposto potrebbe essere risolto 
nel seguente modo: 

IO À$ = "Roma,Milaao, Venezia" 

15 BS* f "MÌUwj w :P=0 

20 FOR J=t TO LEN(ÀS)-IJ£N(BS) 

30 IF MIDÌ(AS f .Ì f | J EN(BS)) = BS THEN 
P=J':J-UN(A$) 

40 NEXT 

Con la routine L.M., pubblicata, 
lunga 71 byte, che simula l'istruzione 
INSTR dei Basic più evoluti, il pro- 


blema presentato nellesempio si ri- 
solve scrivendo: 

SYS XXXXX À$,B$ 

Nella sintassi dovranno comparire 
solo variabili e non direttamente le 
stringhe. 

Il risultato dell'ope razione è conte- 
nuto nel byte 781 (immagine del regi- 
stro X del 6510). Se questo vale 0 si- 
gnifica che BS non è stata trovata 
i n AS. 

Altri valori indicano, invece, ia po- 
sizione di partenza di BS in AS, 


1000 PRINTCHRSC 147) "QUESTA RDLINT 
INE LA CUI SINTASSI E’ : 
SYSXXXXX 

1010 PRINT ,J RIPQRTA NEL BYTE 7B1 
LA POSIZIONE DI PARTENZA 

M 

1020 PRI NT "DELLA STRI NBA U2S CON 
TENUTA IN U1S SE UES N 

ON SI TROUA IN U1S” 

1030 PRINT"IL CONTENUTO DEL BYTE 
7B1 SARA’ 0” 

1040 RETURN 

1050 DATA 32,139,176, 160,0, 177,7 
1 , 133,162,200,177,71 , 133,25 
1,200 

1060 DATA 177,71,133,252,32,253, 
174,32,139,176,160,0,177,71 
1070 DATA 133, IBS, 200, 177,71, 133 
,253,200,177,71,133,254 
10B0 DATA 162,1,160,0,177,251,20 
9,253,240, 14,230,251 ,B0B, 2, 
230,252 

1030 DATA 232, 19B, 1B2, 20B.237, 16 


2,0,96,200, 196, 1B9, 144,231, 
96,-1 . 10951 


0 REM DEMO 

1 REM SIMULA COMANDO INSTR 

2 REM ESTRAE CASUALMENTE I PR 
IMI 40 NUMERI SENZA RIPETIZ 
IONE 

3 REM INI2I0 LM-22711 

4 REM BY ARMANDO SFORZI 

5 ; 

100 J-0: TI$“"000000" 

110 N 1 $ “ "COMMODORE COMPUTER CLU 
B” 

111 N2S- "SYSTEMS EDITORIALE" 

112 N3S- "COMPUTER" 

115 SYS22711N1S, N3S 

120 IF FEEKC781) THEN PRINT”IN 
N1S E’ PRESENTE "N3$" A PAR 
TIRE DA”PEEKC7B1 ) 

125 S YS227 1 1N2$ , N3$ 

127 IF PEEKC7B11 THEN PRINTPEEK 
C791 ) 
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Come utilizzare le routine 


ul N 31 di Commodore Computer Club t 
iniziala una nuova rubrica che ha lo scopo di 
ventre incontro ai principianti (senza trascu- 
rare gli esperti), che desiderano potenziare al 
massimo le caratteristiche del proprio 
computer. 

Il Basic presenta, infatti, carenze notevoli 
che possono esser limitate ricorrendo all'uso 
di routine in linguaggio macchina (LM): è 
sufficiente attenersi alle istruzioni pubblicate 
per utilizzare i sottoprogrammi LM con la 
massima semplicità. Gli "esperi" potranno 
fare a meno di seguire le istruzioni ed utilizza' 
re direttamente i programmi 1..M pubblicati 

I p linci pianti, invece, t opportuno che leg- 
gano con attenzione k "istruzioni per l’uso". 

U J Se questa è la prima volta che leggete la 
rivista, accende le il vostro Commodore 64 e 
saltale al punto N. 2, 

1' Accendete il computer e, se desiderale 
“fondere” akunc (o tutte) le routine di que- 
llo numero con quelle tratte cIìlì numeri pre- 
cedenti (a paltò, ovviamente che ne nate in 
possesso), caricate il fi le^ programma "Nuovo 
Sistema" (nome standard adottato) con una 


delle due forme sintattiche clic si riferiscono* 
-rispetti vomente, ai possessori di nastro o 
disco: 

Load "Nuovo Sistema”, LI 
Lo ad "Nuovo Sistema" .8, 1 

Subito dopo digitate NEW c premete il ta- 
sto Rtrturn 

2 ' Caricate il programma "hissii Top di me- 
moria” e lanciatelo col solito RI IN Alla do- 
manda “Ultimi locazione? ' digitate 20000 c, 
stila successiva richiesta di conferma, premete 
il tasto "S" Le altre ni formazioni che appaio- 
no sul video possono esser comprese solo da- 
gli esperti: i principianti postino tranquilla- 
mente ignorarle e saltare alla prossima fase 
(N.3), •; 

V Caricate (a digitate dalla rivista) il pro- 
gramma "Caricatore 1 


4 ' Digitate dalla rivista la mutine che intere?- 
sa (scritta sempre m Basic, contenente in pre- 
valenza istruzioni Data e numerata da 1000 in 

poi). 


5 r Effettuate una copia di sicurezza del pro- 
gramma che rappresenta la '‘fusione " dei due 
listati ("Caricai ore" + routine Basic 
pubblicata), 

6 *' Dopo aver digitalo Run, alla domanda "Da 
quale locazione?” rispondete con Lindi rizzo 
iniziale suggerito nello stesso titolo della rou 
line in oggetto. Se il computer, dopo alcuni 
secondi, visuali//», come indirizzo finale, un 
valore diverso da quello pubblicato nel titolo 
(oppure il messaggio "Errore di trascrizio- 
ne’ )„ interrompete il lavoro (lasiiRuTi'Sropc 
Restare) e verificaie con attenzione quanto 
avete trascritto da ti visi a. 

Se. invece, compaiono messaggi "confor- 
tanti** (Routine allocata da a Attivare 
con Sys», ed altre informazioni comprensibili 
dagli esperti), digitine il programma dimcv 
strativo c lanciatelo: da questo momento ave- 
te a disposizione una nuova routine LM da 
attivare mediante SYS come indicato nelle 
istruzioni pubblicate per ciascuna mutine 

7 ' Ripetete le operazioni, dal punto 3 in poi, 
per ciascuna routine pubblicata che intendete 


fìssa top fieno 

100 PfifNTCtfRu: 147 TEISTA TOP DI 
MEMORIA" 

110 INPUT "ULTIMA LOCAZIONE" X; 
X-X-l 

1J2 PRINTiPRINTT VALORI ATTUAI 
I 3QNQr" ; PRINT 

113 XWNTfX/2581 ;X2- X-t XI *25$) 

115 PRINT PEEK( 55) :* FEEK(55> :PR 
INT PEEKC56) .- * A PEEK< 56) 

116 PRINT ‘FREfO) :'TRF(Q> 

11? PRINT ; PRINT 1 I VALORI NUOVI 
SAREBBERO . " : PRINT; PRINT PEE 
K( 55) : '*X2 

ne PRINT- PEEK(56) :"X1 

120 PRINT PRINT- 1 CONFERMI? (S/N) 

Pi 

130 IF FEEK(197)~64 TNEN 130 
135 IF PEEKS197X >13 TNEN POKE 
198,0: RUN 

150 1ÙAE 55 , À2 PONE 56, ÀI; RUN1 
60 

160 PRINT FRESO) : FRE(Q) ; PR1NT; 
PRINT NEW' 


"FINE : "T 

100 IF T<-X THEN RUN 

190 PRINT PRINT CONFERMI? (S/N) 

IH 

200 GET A$;IF A$ THEN 200 
210 ÌF AJO"S" THEN RUN 
220 PRINT .-INPUT "NOME FILE' jAS 
230 PRINT" 1 ■ CASSETTA" ; FRI NT" 2- 
D I SCO'" 

240 GET Bt. lF B*- M " THEN 240 
250 IF B$-' 1" THEN W-J.G0T0 200 
260 IF BK7'* THEN V-0.GOTO 230 
270 GOTO 240 
280 FRINTCHRtt 147); 

290 POKE 198. 5; POKE 631 .19 ; POKE 

632.13: POKE 633. 13 .POKE 63 
4 ,13. POKE 635.0 

300 Xl~ÌNT(X/256) ;X2-X-(Xl*256> 
i PHll'Tr ,, Pr 44 * *'X1 " :PT43/'Jf2; 
310 Y1-1NT(TS256) ;Y2-T-(Y 1*256) 
: PRINT" :PT46 . "Yl" PT45."Y2 
320 PR1NT.PRINT;PR1NT 9*'CHRt(3 
4>ASCHRt(34)'' . W' A" 

330 PRINT. PRINT. PRINT :PRIMTiPR1 
NTSYS64738" 


SAVE ZONA RAM 

150 FRINTCHRtC 14?) : INPUT LOCAI 
IONE INIZIALE" ;X 
160 INFUT LOCAZIONE FINALE" .T 
70 PRINT.PRINT INIZIQTX.PRINT 


CARICATORE 

150 REM PER UTILIZZARLO. LEGGI 
LE ISTRUZIONI PUBBLICATE SU 
160 REM COMMODORE COMPUTER CLUB 


170 *- 

180 y— I :QOSUB lOQÙ .PRINT . INPUT 
1 DA QUALE LOCAZIONE" iX 
190 READ WrT-r+l.IE WfO THEN 21 
0 

200 GOTO 190 

210 PRINT PRIMA LOCAZIONE - "X 
2 20 PRINT' 4 ULT1MA LOCAZIONE - X+ 
Y-t . PRINT 

230 PRINT" CONFERMI ? (S/N)" 

2 40 GET At-IF A f-‘" THEN 240 
250 IF AS-'S" THEN NESTORE ;T~X 
.«GOTO 280 
260 RUN 
2 70 : 

280 GOSttB 1Q0Ù. PRINT. FRI NT" ATTE 
NDERE. . . ‘\ FRINT . tf-G 
290 READ B:1F B>~Q THEN POKE T. 

8 ; T -T + 1 : W «V+B ; GOTO 29Ù 
300 READ B;IF B< >V THEN PRINT :P 
RINTCHRM( 18) "ERRORE DI TRA5 
CRII IONE" : END 

310 PRJNT'ftODTINE ALLOCATA DA "X 
"A"T-1"CQMPR" .PRINT 
320 PRINT 'ATTIVARE CON SYS' X.-PR 
1 NT 

330 Xl-lNT(X/256) ;X2*X-(Xl*256) 
:PfUNT'POKE44 . XI" ;P0XE4 3, " 
X2 * 

340 Yl-tNT(T/25ó J Y2-T-iYl*256) 
; PRINT " .-POXE46 , YV' .P0KE45 , 
"Y2:END 
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"collezionare 1 non dimeni icando di digitare 
NEW dopo ogni felice conclusione della fase 
N.6, Ai principianti consigliamo vivamente di 
trascriverle mite in modo da aumentare la 
propria esperienza e soprattutto, per evitare 
incomprensioni degli articoli che leggeranno 
su Commodore Computer Club 

K 'Caricate* dopo un nuovo NEW, tt program- 
ma -S ave Zona Ram c„ dopo il Rum, alla 
domanda “Da quale locazione?*' rispondete 
con 20000. Alla seconda domanda “A quale 
locazione^* riponete te digitando ('indirizzo fi- 
nale dell'ultima mutine trascritta, A seconda 
se avete un registratole oppure un drive, sul 
nastro (oppure sul disco) vi ritroverete, dopo 
aver risposto alle varie domande, il file- 
programma “Nuovo Sistema** (nome che sug- 
geriamo di assegnare quando compare la rela- 
tiva domanda). Tale fi le -programma (da cari- 
care come indicato al punto 1 ) sarà utilissimo 
sia per arricchire la vostra raccolta (trascri- 
vendo le routine dei prossimi numeri di Com- 
modore Computer Club), sin per utilizzarle in 
vostri 


9 f Digitate SYS fi4738 oppure premete il tasto 
di Reset (se lo possedete) in modo da rimette- 
re “a posto” il computer. Caricate il program- 
ma “Fissa Top di memoria” e rispondete con 
2000(1 alla domanda che vi porrà: da questo 
momento potete disporre sia delle consuete 
istruzioni Basic che delle routine LM rieftia- 
mabiti con le £or rispondenti SYS. Non di- 
menticate di ripetere la presente fase (N.9) 
tutte le volte che premete il tasto di Reset o 
dopo un reset software (SYS 64738). Se, inve- 
ce, spegnete il computer, sarà necessario at- 
tuare la fase N. 1 e N,2per inserire nuovamen- 
te nel calcolatore le nuove routine ed usarle 
senza pericolo. 

Collabo razione dei lettori 

1 lettori che mkitdorni tuli a bora re devono 
inviare (almeno) tre routine relativi listati di- 
mostrativi tei articoli esplicativi. Le norme da 
seguire per la stesura dei listati (piuttosto rigi- 
de, per ovvi molivi dì coiti pati hi li la) sono state 
segnalate suf V.31. Per ulteriori infoun «triniti, 
comunque, è possibile telefonare in Redazione 
(tì£/H4&7348t chiedendo dì Michele Maggi. 


( ornando MidS 
(22599/22710) 

Un istruzione molto comoda, im- 
plementata sui Basic piu evoluti di 
quello presente sul C/64, è MIDS is- 
sata non come funzione ma come co- 
mando, cioè posta a sinistra dei se- 
gno di uguale. 

Usata nel modo descritto permette 
di assegnare alcuni caratteri, appar- 
tenenti ad una stringa, ad un'altra 
stringa, a partire da una posizione 
specificata. 

Per fare un esempio, banale ma 
chiarificatore, se avessimo la stringa; 
ÀS« ** Alberto, Maria, Cario" 

e volessimo sostituire il nome "Ma- 
ria' con ‘"Lucia”, dovremmo scri- 
vere: 

IO A$= ”ÀlbertuJV1ariaX’arlo’ > 

15 B$= n Lucìa":P=8 
20 \$ = LFJKTS<AS,P)+B$+ M 1 1>$( A$, 

P+LEN(B$)+1) 

E 1 evidente come questa operazio- 


ne sia macchinosa e piuttosto diffici- 
le da gestire. 

Con la nostra routine Ichc occupa 
1 12 byte) è possibile eseguire la stessa 
operazione con grande semplicità, 
scrivendo: 

SYS XXXXX A$,fVB$ 

La sintassi del comando non permet- 
te l'uso direno delle stringhe, che do- 
vranno quindi comparire sotto for- 
ma di variabili. Si noti, inoltre, f as- 
senza delia virgola (,) tra l'indirizzo 
della SYS (XXXXX) e la prima varia- 
bile (ASK 

La routine, inoltre, controlla che il 
parametro che indica la posizione di 
partenza (P* nell esempio) sia “lega- 
le”, cioè maggiore di zero e minore o 
eguale alla lunghezza della stringa 
principale (AS). 

Avremo segnalazione di "‘Illegal 
Quanti ty"' nel caso i n cui la stringa da 
inserire (B$), considerato il punto di 
partenza, sia troppo lunga c oltrepas- 
si i limiti della prima stringa. 


1000 PfiINTCMR* (147) "QUESTA ROUTINE, LA CUI SINTASSI E r 

* N 

m 

1005 PR I NT 11 SYS X XX X X 0l*,P,V2*" 

1010 PRINT'PERMETTE DI INSERIRE LA STRINGA 02* DIRETT 
AMENTE IN 01 

1020 PR I NT " A PARTIRE DALLA POSIZIONE P” 

1030 RETURN 

1040 DATA32, 139, 176, 160,1,177,71,133,251,200, 177,71, 1 

33,252 

1050 DATA32,253, 174,32, 1 38 , 1 73, 32 , 247 t 183, 132, 182, 160 
,0 

1060 DAT A 1 77 , 71 1 133, 189,208,5,162, il, 108,0,3, 197, 182, 

176.3. 162. 14. 108. 0. 3 

1070 DATA32, 253, 174,32, 139, 176, 160,1, 1 77 , 71 , 1 33 , 253, 2 
00, 177, 71, 133,234 

1080 DATA 160, 0, 177,71,24, 101, 192, 168, 136, 196, 109,240, 

7. 144.5. 162. 14.108.0. 3 

1090 DAT A 1 64 , 102, 136, 240, 9,230,251,208,2,230,252, 136, 
208,247, 177,71 

1100 DATAI 68 , 136, 177,253, 145, 251 , 136, 192, 255,208,247, 
96, -1 , 15155 


0 REMDEMO 

1 REMS INULA COMANDO MID$ 

2 REM IN I ZIO LM*22599 

100 * - - » * ■ * ” t REM GUARDA BENE QUESTA RIGA P 

RIMA DEL RUN 

105 J- 1 £ PR I NT "DIGITA UN NUMERO' n : PRJNTTAB (18) CHRS ( 14 
5) ? 

110 I FJ< 1 THENji=l 

hi 5 GETN*: IFN*» u,+ THENUO 

117 PR 1-NTN4 ; t IFN*=CHR* (20)0RN*«CHR* (!57>THENJ=J-l£ 
GOTOl IO 

1 20 I FNtOCHRf (13) THENSYS22599A5, J , H% i J= J+ 1 ; GOTO 1 IO 
130 PR INI ** VALORE Z 3 SPAZ IO ] IMMESSO ì " VAL ( A$ ) 

140 FRI NT "SORPRESA. . : LIST 100 
150 END 
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Help Variabili 

(22782/22934) 

Di norma, durante la messa a pun- 
to di un programma Basic, vengono 
inserii i comandi di Stop nei punti 
strategici del listalo stesso. 

Ad ogni Break è possibile, in tal 
modo, leggere il contenuto delle va- 
riabili che interessano e verificare 
che corrispondano alle aspettative. 

La presente routine (lunga 153 
byte), ogni volta che è "chiamata”, vi- 
sualizza il contenuto di tutte le varia- 
bili dichiarate lino a quel momento 
(escluse le matrici) senza arrestare 
il programma. 



1000 PR1NTCHRSC1473 "QUESTA POLITI 
NE PERMETTE 01 U I5UAL I ZZARE 

ir 

f 

1010 PR INI "OGNI UOLTA CHE E‘ CHI 
AMATA, IL CONTENUTO” 

1020 PR 1 NT"0 I TUTTE LE UARI ABILI 
IN USO DEFINITE FINO A □ 
UEL MOMENTO” 

1030 PR INT "ESCLUSE LE MATRICI” 


1040 RETURN 


1050 DATA 165,122,133,253.165,12 
3 

1060 DATA 133,254,165,45,133,251 
, 165,46,133,252 

1070 DATA 163,255,133,122,163,1, 

133.123.160.0. 177.251.201.1 
26,144, 32 ,41,127 

10Q0 DATA 32,210,255,153,0,2,200 
,177,251,41,127,240,7,32,21 
0,255,153,0,2 

1030 DATA 200,163,37,32,210,255, 

153 .0. 2. 20B , 42 

1100 DATA 32,210,255,153,0,2,200 
,177,251, 240 , 32 , 201 . 128 , 144 
.21 


1110 DATA 41,127,240,7,38,210,25 

5. 153.0. 2.200.163.36.32.210 
, 255 

1120 DATA 153,0,2,200,6,32,210,2 

55.153.0. 2 

1130 DATA 200,163,0,153,0,2,163, 
50,32,240,167,155,251,24,10 
5,7,133,251 

1140 DATA 144,2,230,252,165,252, 
137,40,144,130,240,2,176,6, 
165,251,137,47 

1150 DATA 144, 12B, 165,253, 133, 12 
2,165,254, 133, 123,36,-1,200 
93 


0 REM DEMO 

1 REM HELP UARI ABILI 

2 REM INIZIO LM-227B2 

3 REM BY ARMANDO SFORZI 


100 DEF FNFCXO-RNDCima 

110 FOR J-l TO 5 

120 A-FNFC0D : X1-FNFC0) :6^-FNFC0 
) :TS-STRSCFNFC0J) 

130 SYS22702 : NEXT : END 
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Avvertenze 

Ricordiamo ai nuovi lettori che ci ledo- 
no per la prima tolta che La nostra mista 
propone so ogni numero un gruppo dì muti- 
ne in linguaggio Macchina per il Commo- 
dore 64, interamente rilocahili. Ciò signifi- 
ca che l'utente potrà realizzare una vera e 
propria enciclopedia in LM. personalizza- 
la in base alle proprie esigenze. 

F!" ovvio che le routine proposte, per fun- 
zionare adeguatamente, soggiacciono ad 
alcuni limiti ben illustrati nei primi numeri 
di “Nuovo Sistema" 1 . 

In questa sede ci limitiamo a ricordare 
che, per evitare malfunzionamenti, è ne- 
cessario: 

• Fissare il Top di memoria Rimi A 2(MMM). 

* Caricare, servendosi del programma ‘Ca- 
ricatore” a suo tempo pubblicato (o analo- 
ghi V, le routine Basic contenenti le istruzio- 
ni Data. 

• Indicare la prima locazione di memoria in 
cui si desidera allocare la routine stessa. 

* Attivare la routine secondo i suggerimenti 
indicati nei Demo a corredo. 


Nuovo Sistema 

a cura di Alessandro de limone 


Mappa della memoria di 
NUOVO SISTEMA 

(Elenco delle routine pubblicate) 


Il primo valore indico lincUrizzo di par- 
tenza (coincidente con la -SYS do impar- 
tire L mentre, il secondo, l'ultima locazio- 
ne contenente l’ultima dato. 

Il numero tra parentesi, invece, si riferi- 
sce al numero di C.C-C. in cui sono state 
pubblicate le routine stesse, 

20000/20011 CoTu Calcolato (31) 
20012/20049 fioSuh Calcolato (31) 
20050/201 2S Interp A$ (31) 

201 29/201 m Cambia colore- (31) 


201 89/20245 Serri! Carattere (31) 
20246/20302 Cancella carati, (31) 
20303/20445 CoSub Label (32) 
20446/20502 GoTo IjìIh-I (32) 
20563/20596 Restare linea (33) 
20507/20682 Disk Ibol (33) 
20683/20775 Dtrcclon (33) 
20776/20858 Serali Rag (34) 
20859/20914 Deck (34) 

20915/20952 Doke (34) 

20953/21106 Decim/Esadec (35) 
21107/2 USO locate eursor (35) 
21157/21260 Beep (35) 

21261/21473 IM.Sprite (36) 
21474/21839 Sprite tool (36) 
21540/21919 Coli sione sprite (36) 
21929/21962 Pause (36) 

21963/22035 Cancella schermo (37) 
22036/22174 Effetti sonori (37) 
22175/22195 Up Scroti (37) 
22196/22357 Righi Scroìl {37} 
22358/22506 l*Ft Scredi (37) 
22507/22598 Down Scrull (37) 

(Le routine di questo numero sono 
opera di Armando Sforzi) 
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ENCICLOPEDIA DI ROUTINE 


Tre routine 
per chi inizia 

À cura dì Alessandro de Si mone 


16300 Frinì a velocità controllata 

(Commodore 64/128} 

Mediante questo sottoprogramma è possibile stam- 
pare qualsiasi messagio alfanumerico sullo schermo, 
ma in un modo diverso dal solito. Infatti le informazio- 
ni non vengono visualizzate di colpo sul video, ma gra- 
dualmente, carattere per carattere, grazie alla possibili- 
tà di impostazione della velocità di stampa. 

Perfino la punteggiatura viene rispettata: infatti il 
programma introduce delle pause di ampiezza oppor- 
tuna ogni qual volta incontra una virgola; inoltre, du- 
rante la stampa, il colore del bordo del video viene con- 
tinuamente variato e, come se non bastasse, il rutto è ac- 
compagnato da un beep sonoro. 

Qui dì seguito elenchiamo le variabili da definire pri- 
ma del Gosub, nonché la loro funzione: 

X1S; non contiene altro che i caratteri che volete stam- 
pare e, come tutte le stringhe, non deve possederne più 
di 255. Le informazioni verranno stampate nel colore 
che il cursore aveva al momento della "chiamata 1 '; in 
XI $ possono essere insenti anche i caratteri speciali 
(come se si trattasse di una normale Print); 

X9; rappresenta la velocità di stampa, A valori bassi di 
X9 corrisponde velocità elevata (e viceversa). Se, al mo- 
mento della chiamata, X9 c nulla verrà settata automa- 
ticamente la velocità ideale (cioè 10). 

XLY1: contengono, rispettivamente. Fa scissa (X, varia- 
bile tra 0 e 39) e Tordi nata (Y: 0- 24 ) t ovvero le coordina- 
te vìdeo alle quali sì desidera venga stampato il primo 
carattere del messaggio. 

La variabile XOS ha funzione di controllo ed ha il 
compito dì segnalare eventuali errori, come, ad esem- 
pio, i valori delle coordinate al di fuori del range stabili- 
to (X0S="LRR")- 

100 REM ESEMPIO ' D 'USD 

110 REM PRINT A UELOCI TA * CONI 

ROLLATA 

160 REM BY H, DELL’ABATE - SQL 

□ 064 



130 i 

140 FRI NTCHRSC IH? 2 
150 X13>“ "PER MEZZO DI QUESTA PO 
UTINE HAI LA POSSIBILITÀ’ D 
I STAMPARE ” 

160 XlSE*XÌ35 +,f INFORMAR IONI SULLO 
SCHERMO, MA CON QUALCHE NO 
U I T A 1 : ” 

170 X1$-X10”FACILITA 1 Dì LETTO 
HA, PRESENTAZIONE ELEGANTE, 
UELOC ITA * CONTRO" 

180 Xl$~XlO”LLABILE E T COME PU 
□I UEDEPE „ ANCHE LA PUNTEGG 
I ATURA UIENE FISP" 

190 XlS-XlS+^ETTATAf " 

£00 Xl-1 : Yl-l;GaSUB 16300 
B10 END 
9999 : 

16300 X0$-"OK": IF XK0 UR Xl>39 □ 
P Y1<0 OR Yl> B4 THEN X0$- ,J E 
RR ** : RETURN 

163E0 IF X9<*0 THEN X9“10 
16330 XS-LENCX1S5 

1E340 PDKE Eli , Y1 : PDKE 614, XI: SYS 
58640 

16350 FOR Y9-1 IO XE : Y15-M IDSCX1S 
, Y9 , 1 > 

16360 POKE 53BB0, R56*RNDti;> 

16370 PRINTY1S; : Y5 “ .B 

16380 IF YlS-CHRSC3E:i JHEN Y5-4 

16301 IF Y 1 £ " " , ” THEN YS-7 
1630E IF Yl$“ '* ; ” OR Yl$- J> ;” THEN 

Y5-10 

163B3 IF Y1S-" . " OR Yl$*=”t iJ OR Y1 
5 -*’?" JHEN Y5-1S 
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16384 FOR Y3-0 IO X9*Y5;NEXT 
163B5 POKE S489E, 15:F0KE 54896,0: 
NEXT 

16390 REM Xl-Yl COORDINATE 
163B1 REM XB UELOC ITA 1 
16336 REM Xl$ STRINGA DA STAMPARE 
16399 REM FRI NT A UELOC ITA ' CONTR 
OLEATA 


16400 Draw in bassa risoluzione 

(Commodore 64/128) 

Questa routine serve a tracciare semplici disegni sul 
video, segnalando gli spostamenti che una immagina- 
ria Spenna" compie sullo schermo. Si può scegliere il 
carattere da utilizzare ed il suo colore. 

La variabile XI $ è la “stringa dì definizione" cioè 
contiene i dati per lì disegno: ì simboli da utilizzare 
vengono qui di seguito elencati: 

1 = alto 

2 = basso 

3 = sinistra 

4 - destra 

„ = disegna 

, = sposta la “penna" senza disegnare 

Il punto (.) oppure la virgola (,) posti in coda alla 
stringa, indicano la fine del disegno. 

Ad esempio, per disegnare un quadrato sarà suffi- 
ciente la sequenza: 

XIS- "22224444 11113333” 

mentre per disegnare una linea tratteggiala basterà 
assegnare: 

Y 1 <£ = "AA A A A A A A A A A A A A 

/V J ijl "rr ». TT i™ T**rr 4*11 ìì T™ T _ 

A XI ed YI devono essere assegnate, prima del Go- 
sub, le coordinate di inizio; in Y2 il codice (Potè di 
schermo) del carattere da utilizzare: in Y3 il suo colore 
(secondo la solita labella 0-15 che si trova sul manuale 
dì istruzione del computer). 

100 REM ESEMPIO D’USO 

110 REM QRAIU IN BASSA RISOLUZI 

□NE 

160 REM SOLO 064 . BY MAURIZIO 
DELL’ABATE 
130 : 

140 Xl-1: Yl-1: Y2-B1: Y3-1:PRINTC 
HRSC 147) 

150 XÌS= "53388444441 14488588444 


160 

170 

160 

190 

000 

810 


880 


830 

840 

550 

399B 

15439 

16400 


16410 


16450 

1 6451 
16455 

16453 

16454 

16455 

16457 

16488 

16489 

16430 

16431 


16438 


16433 

16450 

16490 

16431 


5555355 *4444444111111111 ,44 
4444444444444 , 11 
□□SUB 16430 

POR A“0 TO 1000: NEXT: FRI NIC 
HR3> C 147 > 

PRIMI” ORA PROUA TU,..,":PR 
INI 

INPUT "POKECOOE CARATTERE 11 : 
Y5 

INPUT "COLORE CARATTERE” ; Y3 
INPUT "ASCISSA , ORDINATA” ; XI 
* Y1 

INPUT "STRINGA DI DEFIMIZIO 
NE"; X1S 

FRI NTCHRS C 147 > : G05UE 16400 
PRINTCHR® £ 193 : X0$: POR A-0 T 
0 S000 : NEXT t RUN 
END 


■i- 

REM DRAW IN BASSA RISOLUZ 
IONE 

X0S-”OK":IF X1<0 OR Y1<0 OR 
XI > 39 OR Yl> 54 THEN X0$«” E 
RR" : RETURN 

IF Y3<0 OR Y3>555 OR Y3<0 □ 

R Y3> 555 OR Xl$-”" THEN X05 

* ”ERR" : RETURN 

XS-LENCX1S):Y4-1 

FOR Y7-1 IO X5 

X8-1054+X1+Y1*40 

IF XB< 1054 OR XB>5053 OR Y4 

-0 THEN 1645S 


POKE X0 , Y5 : POKE 54573+XB , Y3 
XES-MID$CX15 t Y7, 1) 


IF X3S- 
D 18450 
IF X3S- 

□ 16450 
IF X3S- 

□ 16450 
IF X8$- 
0 16480 

IF xe$- 

6450 
IF X3$- 


"1" 

THEN 

Yl-Yl-1 : GDT 

"3 11 

THEN 

Y1-Y1+1:GGT 

"3" 

THEN 

XI— XI -1 : GDI 

"4 ” 

THEN 

XI— Xl+l : GOT 

i» ii 

? 

THEN 

Y4-1 : GOTO 1 

* 

THEN 

Y4-0 : GDTD 1 


6450 


X0$-"ERR" : RETURN 
NEXT: RETURN 


REM Xlffi STRINGA DI DEFINÌ 21 
ONE 

REM XI, Y1 ASCISSA, ORDINATA 
START 
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1643B REM YB CODICE CARATTERE DIS 
EGND 

164S3 REfl Y3 COLORE CARATTERE DIS 
EGND 

1B4SS REH ORALd IN BASSA RISOLUZID 
NE 


16S0U Drum 

(Commodore 64/12#) 

Dmm, in inglese, vuol dire tamburo e questa routine 
ne simula il rumore e il ritmo. La sequenza dì “suoni 11 
viene definita in una variabile stringa in cui vengono u- 
ti lizzati i seguenti caratteri -simbolo: 


punto (.) = battito (bum) 
spazio “ pausa 
meno (-) - doppia pausa 


Tali informazioni vanno immesse in XI S come si può 
notare nel demo in testa alla routine pubblicata. 

Con un po’ di pazienza riuscirete a comporre ritmi 
accettabili e, comunque, divertenti. La variabile nume- 
rica X2 deve contenere la velocità di esecuzione, lenen- 
do conto che a valore basso corrisponde velocità eleva- 
ta (3(1 è un valore valido nella maggior parte dei 
casi). 

Occorre ancora precisare che in questa routine non si 
sono sfruttate le capacità sonore del SID: per generare 
il rumore è stato sufficiente alzare al massimo il volu- 
me e. subito dopo, riabbassarlo {registro Siti 542%), 


100 

110 

100 

130 

135 

140 


150 

160 


170 

100 


100 

800 


810 


REfl ESEMPI □ D * USO 

REM DRUM, BY MAURIZIO DELL ’ 

ABATE 

REM SOLO 064 


V 

PRINTCHRSC147D 

yi S _» _ _ * — 

. . " : XE-30:PRINTX1S: PKINT”U 


ELOC . ”X2: GOSUB 16500 
FOR 1-0 TO S00:N£XT 
Xl$“” . . 


XB-40: PRINTX1S: PRINTXB; GDSU 


B 16500 

FOR 1-0 TQ 900 : NEXT 

X1S-” ~ 

, ” : XB— 50: PRINTX1S : PR 


INTX2; G05UB 16500 
FOR 1-0 TQ 900: NEXT 
X1S" ***#*•**»«* * "™~ 


, , . . , , , M :X2-li PRINTX1S: PRI 
NTXE : GOSUB 16500 
END 


9933 : 

16500 X0$=”OK”: X1«LENCX1$> : IF X8< 
0 THEN RETURN 

16510 FDR Y9"i TG XI 
16515 XYS-MIDSCXIS, Y9 t 13 
16580 IF XY5» ” . ” THEN GOSUB 16550 
: NEXT: BOTO 16540 

16530 IF XY$- “ THEN FOR Y4-0 TO 
XB*10r NEXT : NEXT : GOTO 16540 
1B535 IF XY$-CHR$C3E3 THEN FQR Y4 
-0 TO XE*5: NEXT; NEXT: GOTO 1 
6540 

16537 X0$-"EER” 

16540 RETURN 

16550 PDXE 54896 T 15 : PQXE 54 896,0; 

POKE 54896 , 15 : PGKE 54896,0 
16560 FOR Y4-Q TD X8 : NEXT : RETURN 

16590 REM Xl$ MELODIA 

16591 REM X8 TEMPO 
16539 REM DRUM 


Elenco delle mutine pubblicate 

(Fra parentesi è riportato il numero 
dì Commodore Computer Club su cui sono apparse) 


16200 plot lo-w-res (37) 

16100 integrali (37) 

16000 equa/. mista (37) 

15900 equaz, terzo gr. (37) 
15800 derivata dì funz. (37) 
15700 cornice rotante (37) 
15600 convers, coordin. (36) 
15500 togar, base quals. (36) 
15400 conversione basì (36) 
15300 semplif. frazioni (36) 
15200 dì vis con N decifri (36) 
50100 directory (35) 

15100 lampeggio righe (35) 
15000 frammenta schermo (35) 
I49(H) dolete window (35) 

14800 cambia stringhe (34) 
147-tMJ slitta stringhe (34) 

14600 ruota stringhe (34) 

10500 input programmai (34) 
14500 scroll solo testo (33) 
14400 sprìte multiuso (33) 
14300 zoom esadecìmalc (33) 
14200 video orologio (33) 

J 1 100 funzioni inverse (32) 
33200 centra messaggi (32) 
14100 finestre di lesto (32) 
14000 gestione nome disk (32) 
13900 load/save pg. video (31) 
13800 scritte in ebem (31) 
13700 bit image mps/803 (31) 
13600 or esclusivo (31) 

13500 comandi entra prg (31) 
13400 linee low-res, (31) 

13300 elabora stringhe (31) 


13200 centratura frase (32) 

(3 3 00 menu con joy (30) 
13000 menu con cursore (30) 
12900 frase lampeggiante (29) 
12800 bordo technicolor (29) 
12700 fili memoria ram (29) 
12600 test copy mps 8-03 (29) 
12500 colore pag testo (29) 
12400 print using (31) 

12400 print using (29) 

12300 m.c.d. E M.C.M. (29) 
50500 visualizza file (28) 
50400 re ad file relativi (28) 
50300 writc file re lai, (28) 
50200 crea file relativi (28) 
50000 legge blocks free (28) 
12200 numeri congrui (28) 
12100 protezione S/W (28) 
12000 koala (27) 

1 1900 eh unge pag. video (27) 
11800 salva ram (27) 

11700 calcolatrice (27) 

\ 1600 scomposi z, sii labe (27) 
11500 car.hi-res (27) 

) S400 istogrammi (27) 

50100 esame directory (26) 
11300 funzinviperbol. (26) 
11200 funz.inv. frigo noni, (26) 
11100 funzioni inverse (26) 
11000 funzioni ipcTboI, (26) 
10900 convers. dcc-csa (26) 
10800 controllo data (25) 
10700 impulsi sonori (25) 
10600 reverse schermo (25) 
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LUTILE 


Come realizzare renciclopedia e utilizzarla nei propri listati. 


A 


Im, i lettori che hanno acquistalo per la prima volta questo numero di Commodore Computer riuh, illustriamo qui di seguito, in 
breve, i vantaggi derivanti dalla raccolta proposta. Questa, a pensarci bene, è la versione "superiore” della rubrica ** 1 RIGA " e 
potrebbe anche denominarsi... "Una schermala'’! 

Oltre che utili per costituire un'enciclopedia, i brevissimi sottoprogrammi pubblicati su ogni numero, sono anche validissimi 
strumenti di studio per coloro che desiderano approfondire le proprie conoscenze del Basic, esaminando, senza fatica, particolari 
routine o insolite tecniche di programmazione, 

• Dato che può esser "chiamala” più di una volta nel corso di un programma, nessuna routine contiene istruzioni del tipo DATA 
oppure DIM, allo scopo di non creare confusione col listato principale. 

• Nessuna routine può far rifentnemo ad altre routine dell'enciclopedia 

• Nessuna routine può contenere variabili "banali” (A, AS, eccetera), ma solo variabili poco usate (X1S, X8, Y(F£, eccetera), 

• Ogni routine deve apparire, per intere, sullo schermo del computer c consentire, proprio per questo motivo, di essere esaminata 
comodamente. 

• Ogni routine deve esser numerata secondo uno standard che ha la particolarità di esser ricordato facilmente: 


Righe 

XXYOO Prima riga del soUoprogramma 

XXY89 Ultima riga utile del sotroprogramma 

XXY90REM Prima riga di spiegazioni 

XXY99 REM Nome delia subrourine 

in cui XX sono due valori variabili da 10 a 63; Y è un carattere numerico compreso tra De 9. 

Qualsiasi subroutine. in altre parole, inizia con un numero, di cinque caratteri, che termina sempre con "00". La stessa subrouline, 
d’altra parte, ha l'ultima riga numerata con “99”, Digitando, ad esempio: LIST 10800-10899 
si avrà la certezza di veder apparire sullo schermo, per intero, la routine il cui nome si Irova nella riga 10899. 

Pnma di accedere alla routine, è necessario assegnare, alle variabili indicate con REM da riga XXY89 a XXY9K, particolari valori 
per iE suo corretto funzionamento. Al "ritorno 1 una o più variabili conterranno il risultato del l'elaborazione 

In questo modo, per esser piu chiari, è possibile simulare alcuni comandi di versioni Basic avanzate oppure, addirittura, creare 
nuove c inedite istruzioni Ad esempio, il comando: SOUND 1,800,500 

che, nel C-16, riproduce un suono di tonalità 800 tramite la voce 1 per la durala 500, potrebbe venir riprodotta, in un ipotetica 
subroutine per il Commodore 64. con: XI = t:X2=800:X3**5QO:GGSURL2400 
nell ipotesi, ovviamente, che la routine in oggetto sia allocata da riga 12400 a 1249*3 

I listati pubblicali “girano 1 su ogni computer, salvo dove indicato diversamente. 

E ovvio che nel caso del Vic’20, (che, come è noto, ha uno schermo di soli 506 caratteri), le subrouline “universali” funzionano 
correttamente, ma non possono apparire per intero in una sola schermata. 

Per quanto riguarda la digitazione, si tenga presente che sulla rivista, per morivi di chiarezza, i comandi e k istruzioni Basic sono 
separati tra loro da spazi bianchi. Nel digii are te linee di programma, pertanto, è opportuno ignorarli altrimenti si rischia di non restare 
in una sola schermata Se, per esempio, leggete: 

12100X1*34: X2 = SQR(X3j + LOG(Xl) 

digitate nel modo seguente 

121IKI Xl=34 X2=SGRfX3)+LOG{Xl) 

senza, cioè, alcun carattere di separazione ira contundi ed istruzioni 


Contenuto 


Collaborazione dei lettori 

La collaborazione dei lettori ù gradita, purché si prov- 
veda a inviare almeno Tre sottoprogrammi per volta, su 
nastro, disco oppure output di stampante. 1 listati di 
routine che non rispettano lo standard adottato non 
potranno esser presi in considerazione. 

l ulti i lavori pubblicati verranno compensali con pro- 
dotti della Systems Editoriale (cassette di programmi, 
libri, abbonamenti, copie arretrate, eccetera). 
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GIOCHI 

C 64 - C 16 - PLUS 4 - C 128 


Quella città 
in capo al mondo 


Come determinare la distanza tra due 
città oppure come studiare , giocando, 
un capitolo di geografia o di 
geometria sferica 


J^Jon staremo qui a richiamare le 
nozioni di geometria, indispensabili 
per lo studio approfondito di una 
parte fondamentale della geografia. 

Ci limiteremo, invece, a dame sem- 
plici cenni in modo da facilitare la 
comprensione del programma. 

Un po' di geografia 

r 

Come si può notare dal disegno, la 
Terra è idealmente suddiviso oriz- 
zontalmente in cerchi paralleli tra lo- 
ro (detti, appunto, "paralleli"), e t ver- 
ticalmente, in cerchi (Meridiani) che 
si incontrano lutti nei due Poli, 
Esiste un solo parallelo più grande 
degli altri (equatore) che viene preso, 
quindi, come riferimento. Poiché, in- 
vece, i meridiani sono tutti eguali tra 
loro, per convenzione si assume co- 
me riferimento quello che passa per 
la città di Greenwich, in Inghilterra. 

L’equatore, di latitudine zero, sud- 
divide il pianeta in due semisfere: i 
paralleli posti al Nord sono conside- 
rati positivi, quelli al Sud negativi ed 
il valore assoluto massimo, ovvia- 
mente, è di 90 gradi. 

Analogamentei meridiani posti ad 
Ovest di Greenwich (in scuso, quin- 
di, orario supponendo di appoggiare 
un orologio al Polo Nord) sono con- 
siderati positivi lino a 18ri gradii 
quelli posti ad Est. al contrario, sono 
considerati negativi, fino ad un mas- 
simo dì 180 gradi. 

Ne consegue che le città del nostro 
pianeta poste a Nord del l'equatore c 
ad Ovest di Greenwich hanno coor- 


ti Roberto Soro 


di nate (dette più propriamente latitu- 
dine e longitudine) entrambe positi- 
ve (America del Nord, gran parte del- 
l'America centrale, parte dell’Africa 
Nord-Occidentale, Portogallo, parte 
della Spagna eccetera). 

L"l tal Ì a, 1 Eu ropa Orienta le, 1 a Rus- 
sia, il Giappone, l'India egli altri Sta- 
ti posti ad Est dì Greenwich hanno li- 
na coordinata positiva ed una negati- 
va, e così via. 

Molto spesso, invece dei termini 
“positivo"' e '‘negativo" si trova la 
simbologia O (Ovest) E (Est) per i 
meridiani e N (Nord) e S (Sud) per 
i paralleli. 

Per inserire dati in un computer, e 
per elaborarti più facilmente, è molto 
piu comodo inserire valori positivi e 
negativi anziché valori preceduti (o 
seguiti) da N, S, E, O. 

Come gira il programma 

Anzitutto facciamo notare che, in 
coda al programma (da riga 17811 a 
199(1) sono inseriti i DATA relativi al- 
le città. Il primo dato rappresenta il 
nome della città stessa, il secondo la 
sua latitudine ed il terzo la longitudi- 
ne, positive o negative secondo quan- 
to detto prima. 

1) lettore potrà inserire tutte le città 
che desidera, a palio di rispettare la 
modularità appena accennata, rin- 
tracciando !e informazioni utili in un 
qualsiasi atlante scolastico. Poiché il 
programma, dato il Run, determina 
automaticamente il numero di città 


inserite, non è -necessario apportarvi 
alcuna variazione dal momento che 
Fui timo Data (l'asterisco, riga 2000) 
comunica al computer il termine 
dei nomi. 

Se, quindi, compare 11 messaggio 
“Out of data errori vorrà dire che a- 
vetc dimenticalo di digitare la riga 
2000 . 

Dato il Run. dicevamo, compare un 
menu con quattro opzioni. 

1/ Indovina le città 
2/ Distanza per nomi 
3/ Distanza per coordinate 
4/ Elenco delle città 

Le opzioni 

Premuto il tasto “1" compaiono le i- 
niziali di due città presenti in elenco, 
seguite, ciascuna, da un numero di 
puntini pan al numero dei caratteri 
nascosti. Compare, inoltre, la distan- 
za in kilomctri e la direzione in gradi. 
In base a tali informazioni Putente 
deve indovinare, avendo a disposi- 
zione cinque tentativi perdita, il loro 
nome. 

Con la seconda opzione è possibile 
conoscere la disianza (in k ilo metri e 
gradi) esistente tra due qualsiasi città 
presenti in elenco. Nel caso una delle 
due sia assente, un opportuno mes- 
saggio comunica Firn possibilità di 
operare. 

La terza opzione consente di cono- 
scere la distanza tra due punti qual- 
siasi della Terra, fornendo le corri- 
spondenti coordinate. 

ì ,a quarta opzione si limita a visua- 
lizzare Felenco delle città inserite 
nel programma. 
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Ih 2h 3h 4h 5h 6h 7(i »h 9h lOh 11h 12h Oh 14h 15h 1#h (T h )8h 19h 20h 2th 22h 23h 24h 




110 

150 

130 

140 

150 

160 

100 

130 

510 

aem 

530 

540 

550 

560 

570 

300 

590 

300 

310 

350 

330 

340 

350 

360 

370 

300 

390 

400 

410 


REM COMMODORE 84/136 
REM 016 . PLUS 4 

V 

■ 

REM DISTANZE E DIREZIONI 
REM AZIflUTALI SUL NOSTRO 

REM PIANETA. 

* 

■ 

REM DI ROBERTO 5DR0 CM1LAN0 
1 


REM FUNZIONE ARCO COSENO 
* 

□EF FNCSCX1 "“ATNCX/SQRC -X*X 

+ 1D+IT/3 

* 

* 

REM COSTANTI E UARIAEILI 

4 

R0-if/180: REM CQNUERSIONE GR 
ADI. -'RADIANTI 

R-E367:EEM FAGGIO MEDIO TER 
RESTRE 

UD$“CHR$ C 17 ) : URS-CHRS C 23? : P 
EM TAB. UIDEO 

UU$-CHRSf 1451' : UHS-CHRSC1S) : 

REM TAB. UIDEQ 

U$“ M ” :UM$“UD$+UD$+URS+UR$ 

+URS+URS 

UUS-UDS+UDS+UD$+UDS+UDS+UDS 

+UD$ 

M 

« 

REM INIZI AL I ZZA2 1 ONE 

m 

CT**1 

READ AS ; CT“CT + 1 : I F A5<> ,I ^ ,, G 

OTO 390 

FESTORE 

D-CCT/31-1 :DIM TUJBtD} , CDCD 
O) 


450 

430 

440 

450 

460 

470 

4B0 

490 

500 

510 

530 

530 

640 

650 

560 

570 

590 

590 

600 

610 

630 

630 

640 

650 


FOR 1 “0 IO D ; READ TW$f T ? , C 
OC I f 0} * CDC I , 1 ) : MEXT I 

REM MENU PRINCIPALE 

* 

PRINTCHRSt 1470SPCC131 ”LE DI 
STANZE ,J 

FRI MTUM3s+ ”1=1 NODO INA LE CIT 

TA 1 " 

PP INTUÌ1S+ M S*D ISTANZA PER NO 

M I " 

PR I NTUHS+ ”3*D I STANZA PER CO 
ORDINATE” 

PPINTUM$+”4-ELENCD DELLE CI 
ITA * ” 

PRINTUDS+UDS+UMS-^'QUALE £CE 

LTA?" ; 

GET JS’IF THEN 530 

1F J$-”l” THEN 60 SUB 610:60 
TO 460 

IF J$- Jl 3” THEN COSCE 930:00 
TO 460 

IF THEN GDSUB 1050:0 

OTO 460 

IF J$“"4” THEN GDSUB 1130:0 
OTQ 460 
GOTO 530 


REM 1 
A 


BUBBOLITI NE INDOUIN 


P R I NTCHRS f 1 4T 7 >SPC r B j ” I NDOU I 

NA LE DUE C I FI A * ,f 

FRINÌ 

REM RICERCA DELLE DUE CITTA 

» 

REM MEDIANTE NUMERI CASUALI 


Commodore Computer Club - S9 



COORDINATE SFERICHE 


POID Moro 



670 CA- INI CRNOC07 * CO* 1 7 7 : CB-INT 
CPNDC0)*CD+1 7 7 
6B0 IF CA-CBGOTO 670 

630 li-cocca , 07 imi-cocca, n 

700 L2-COCCE, 07 :M2-C0CCB, 17 
710 FOR 1-1 IO LENC TUJS C CA 7 7 
7E0 PUS - ” , ” : I F 1-1 THEN PUS-LEF 
TSCTUSCCA7 , 17 
730 FRINTPUS; :MEXTI 
740 PRINT: PR I NTCHRS C145 7SPC C 20 7 

750 FOR 1-1 TO LENCTWSCCB77 
760 PUS = 11 , 11 ; 1 F 1=1 THEN PUS-LEF 
TS CTWSCCB 7 , 1 7 
770 PRINTPU4 ; : NEXT 1 
700 G05UB 1470 ; GOBUB 1650 
790 PRINT: PRINT: PRINT: GOSUB 155 
0 : GOSUB 1130: RETURN 
000 : 

B10 REM 2 - DISTANZE PER NONE 
B50 : 

B30 PRINTCHRSC 1477SPCC97 ”DISTAN 
ZE PER NOMI ” 

B40 XS- ” " : Yffi- " ” : CA— 1 :CB--1 : PR1 
NTUHS+UOS+UDS 

650 INPUT “QUALI CITTA’ C NOME 1 
, N0ME2 7 ” ; XS , YS 
B60 IF C XS - " ” 7 AND CY$-””7GOTO 
B40 

070 FOR 1-0 TO □ : REM LOOP DI CO 
NTROLLO NOMI 

BB0 IF XS-TWSCI7 THEN CA-I 
830 IF YS-TWSCI7 THEN CB“I 
900 NEXT1 

310 IF CCAO-1 AND CB<>~17 THEN 
350 

950 IF CA— 1 THEN PRINTUDS+X$"N 
ON E’ IN ELENCO” 

330 IF CB--1 THEN PRINTUDS+YS” 
NON E’ IN ELENCO” 

340 GOTO 1010 

350 PRINTCHRSC 1477SPCC97 ”DISTAN 
ZE PER NONI” 

360 PRINTUHS+UDS+UDS+XS 


BB0 LI-COCCA. 0 7 : MI-COCCA, 1 
390 L5-C0CCB . 07 : M2-C0CCB , 1 7 
1000 GOSUB 1470: GOSUB 1650 
1010 GOSUB 1190: RETURN 
1050 : 

1030 REN 3 - DISTANZE PER CDORDI 
NATE 
1040 : 

1050 PRINTCHRSC 1477 SPCC 67 "DIETAN 

ZE PER COORDINATE” 

1060 CLS-”COORDINATE: LAT . LONG 
. » 

1070 PRINTUHS+UDS+UDS+CLS; : INPUT 
LI ,m 

10B0 PRINTCLS; : INPUT L2,M2 
1090 GOSUB 1470: GOSUB 1650: GOSUB 
1130: RETURN 

1100 : 

1110 REM 4 - ELENCO CITTA* 

1150 : 

1130 PRINTCHRSC 147 7SPCC 7 7 "ELENCO 
DELLE” D+l "CITTA ’ ”UDS 
1140 FOR 1-0 TO D : PR I NTTUSC 17.;: 
NEXT I 

1150 GOSUB 1130: RETURN 
1160 : 

1170 REM SUBROUT I NE DI ATTESA 
11B0 : 

1130 PRINT: PRINTUDS-t-UDI+ "PREMI U 
N TASTO” 

1200 GET JS: IF JS-”" THEN 1200 
1210 RETURN 
1220 : 

1530 REM CONTROLLO NOMI CITTA’ 
1540 : 

1250 NC-0: NT-0; Cl-0: C2-0 
1260 PRINTCHRSC 145 7 ; 

1270 FOR K-l TO 39: PRINTUS; : NEXT 
K: PRINT 

1280 PR I NTUUS "NOME DI UNA CITTA’ 

» - 

1E90 INPUT X*:NT-NT+1 
1300 IF XS^TmtCCO THEN 5W«l:NO 
NC+1 : Cl"l - GOSUB 1400 
1310 IF XSS-TWSCCB) THEN Sld-2;NO 
NC+1:C2“1: GOSUB 1400 
1320 IF NC-e THEN RETURN 
1330 IF MT-5 AND NO© THEN Sbd-1: 

NOI : CI"! * GDSUB 1400 
1340 X$~” ”:IF NT< 10 THEN GOTO 1 
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giochi 


1350 

1360 

1370 

1380 

1380 

JL Jr'M b-, 

1410 

1480 

1430 

1440 

1450 

1460 

1470 

1400 

1490 

1500 

1510 

1500 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1690 

1630 

1640 

1650 

1660 

1670 

1600 

1630 

1700 

1710 

1780 


860 

5W«1:IF 5U=C1 THEN SW-B 
SOSUE 1400: = ” 13 : RETURN 

REFI STAMPA NOMI INDQUINATI 

* 

■ 

IF Sw“i THEN X2-TliJSCC0?rCH- 
B 1730 

IF 5U=£ THEN XS^TWSCCE) : CH= 1740 
20 1750 

PFINTUH$+U0a+UDS3PC(CH^XS : P 
R I NTUUS 

RETURN 

I 

REM CALCOLO DELLA DISTANZA 1761 


LX-M1-M2: K1-90-L1 :K2-80-L2 

XT-SINCK1*R0)*COSCI11*R01 

XR-S INC K2*R0 >*C05Cf12*RG! 

YI”SIN(Ki J *R0?*SINCf11*R0Ì 

YR-5IMCK£*R0)*SIN(I12»R0> 

2T=COSCKl*R05:ZR"COSCKe*R01 

G-XT*XR+YT*Yfi+ZT*ZR 

IF G> “1 THEN G" 1 : GA-0 : GOTO 

1570 

IF G< — 1 THEN G — l;EA-f»:GOT 

G 1570 

GA-FNCSCG) 

□ K-INT C P*GA) 

FRINÌ: PRINTUDS+UDS "DISTANZA 
"DK” KM”: RETURN 

■ 

REM CALCOLO DELLA DIREZIONE 

* 

A3-5INCSA )*SINCK 1 *R03 
IF A3“0 THEN A3-1E-20 
C-CZR-G*2T VA3 
IF 0-1 THEN C-l : A2-0:G‘OTG 
1600 

IF C< — 1 THEN C*-l;AZ“tr;GOT 

0 1580 

AZ=FNCS(C) 

AZ-A2/R0:REM CONUERS I ONE IN 
GRADI 

T1-LX<0 AND LX>“-160:T2=LX> 

180 AMD LX<-350 

IF TI OR 12 THEN AZ“360-AZ 

A2 = I NT C A2* 1 0 ) / 10 

PP INTUDS "DIREZIONE ”A2” GR 

ADI RETURN 



REM CITTA’ E LORD COORDINAI 
E GEOGRAFICHE 

1760 REM SE IL NOME DI UNA CITTA 
1 E’ COMPOSTO DA DUE PAROLE 
, RICORDARSI 

REM DI RACCHIUDERLI TRA API 
CI. ES: "NEW YORK 


» 


1770 

1700 

1790 

1600 

1B10 

1B60 

1630 

1B40 

1850 

1660 

1670 

1000 

1090 

1900 

1910 

1900 

1930 

1940 

1950 

1960 

1970 

1900 

1990 

1991 
0000 
0001 
0010 

E0E0 


DATA "BUENOS AIRES” , -34 5 
B • 4 

DATA CAPETOWM, -34 .0, -18 .5 
DATA "HONG KONG " , 22 . 5 , - 1 14 . 
2 

DATA LIMA, -12.0, 77 .2 

DATA LONDRA, 51 .5,0.0 

DATA "LOS ANGELES" . 34 .0, 118 

.3 

DATA MADRID, 40. 5, 3, 7 
DATA MELBOURNE, -37 ,B, -145 .0 
DATA "MEXICO CITY ".18. 5.38. 
2 

DATA MILANO, 45 .5,-8. 1 
DATA MOSCA, 55.8, -37.7 
DATA NAIROBI , -1 .5, -36.8 
DATA "NEW YORK ”,40 .8, 74 .0 
DATA OUAGADOUGOU, 12.2, 2.5 
DATA PARIGI ,48 ,S, -2. 3 
DATA PECHINO, 39. 8, -116 .5 
DATA PRAGA, 50. 1 , -14 .4 
DATA "RIO DE JANEIRO” , -22.8 
,43.3 

DATA ROMA, 41 .8. -12.5 

DATA "SAN FRANCISCO" ,37.7 , 1 

22.4 

DATA SYDNEY, -33.8.-151 .2 

DATA TOKYO, 35. 7, -138. 7 

* 

□ AIA * 

REM ATTENZIONE ALL'ULTIMO D 
AIA C*) 

END 
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COMMODORE 64 

Risolutore 
di crucipuzzle 


Un programma di notevole utilità per 
partecipare a concorsi che mettono in 
palio premi di tutto rispetto 


di Pii’lru Pino 



ALLE PAGINE 28 E 29 
CONCORSO A PREMI 


N. 133 1000 E ALTRI 57 PREMI 



J\ìcorderemo brevemente che cosa 
ù un crucipuzzle ai pochi lettori che 
forse ancora non lo sanno. 

Come si può vedere dalla figura, un 
crucipuzzle t una sorta di cruciverba 
in cui sono presenti caratteri alfabeti- 
ci sparsi senza apparente relazione 
tra loro. 

Per risolvere il puzzle è necessario 
contornare il gruppo di caratteri che 
rappresentano i nomi riportati nello 
stesso indovinello in un qualsiasi 
modo, purché rettilineo: orizzontale 
(da destra a sinistra o viceversa), ver- 
ticale o diagonale. Alla line delle o- 
perazioni rimangono escluse alcune 
lettere che, lette di seguito, rappre- 
sentano la cosiddetta "chiave" del 
crucipuzzle. 

L’esempio riportato, corrisponden- 
te ad una griglia di 10x7 è piuttosto 
semplice da indovinare, ma esistono 
schemi ben più complessi. 

Il programma pubblicato in queste 
pagine, autoesplieativo, é in grado di 
risolvere crucipuzzle fino ad una di- 
mensione massima di 39x24 e con- 
sente, entro certi limiti, eventuali cor- 
rezioni e manipolazioni. 

11 lettore potrà inserire la possibili- 
tà di memorizzare su supporto ma- 
gnetico lo schema introdotto (la cui 
digitazione richiede una fatica prò- 


92 - Commodore Computer Club 




GIOCHI 



porz lottale alla sua dimensione) in 
modo da richiama rio a volontà in ca- 
so di errori o di interruzione, special- 
mente in fase di debug, 

A che cosa può servire un program- 
ma che, in pratica, vi priva del diver- 
timento peculiare dei cruciverba? Ma 
c ovvio: avere più chances nella par- 
tecipazione ai concorsi... 



100 RE n CRUCI PUZZLE 
110 REM FEP C / 64 
130 REM EV PIETRO PINO 
130 REM MILANO 
140 : 

150 GOSUB 1780 : GDSUB 1430: GOTO 
1330 
160 : 

170 REM INSERISCI DIAGRAMMA 
1B0 : 

190 PRINT’TCLEARr’ ; : XS-*"UU0I UN 
NUOUQ DIAGRAMMA CS/N)":BDS 
UB 1440 

300 GEI A5> t I F AS<>”5” AND A$<>” 
N” THEN 300 

310 IF AS*"S" THEN 340 
330 XS= '"ALLORA SCEGLI L’QPZIQNE 
3» ” : GOSUE 1440: POR T”1 TD 
1000 : NEXT : GDTD 1330 
330 : 

340 CLR : GOSUB 1490 
350 INPUT "E OLEARI] LARGHEZZA DEL 
LA GRIGLIACELA 

360 IF LA< 1 OR LA> 39 THEN 350 
370 INPUT ”L7 D0UIN3ALTE22A DELL 
A GRIGLIA”; AL 

380 IF AL< 1 OR AL> 34 THEN 370 
330 PR I NT” L NERO! E OLEARI " ; 

300 XS- "QUANDO HAI FINITO PREMI 
1 RETURN 1 " : GDSUB 1440 
310 FGR X-l IO LA: AS-AS+” . ” :NEX 
T 

330 POR Y" 1 IO AL : PR I NTA95 : NEXT 
330 DIM L$r AL-1 , LA-11 
340 PR I NT ” E ROMEI ” ; : SYSt 654B7 ) : X 
^"ATTENDI GDSUB 1440 
350 FOR Y-0 TD AL- 1 : FDR X“0 TD 
LA“1 

360 P*PEEKC1O24+Y*40+X) : IF P< 1 
OR P> 36 THEN P — 1B 
370 P-P+64 

380 LSC Y t X?“CHRS( P ) : NEXT: NEXT : G 


DIO 1330 
390 : 

400 REM INSERISCI LISTA 
410 : 

430 PR ! NT ” CCLEAR1 ” : : IF F3-0 THE 
N 440 

430 XS-”HAI G I A r INSERITO LA LI 
STA ” : GDSUB 1440: POP T-l TO 
1000 : NEXT : GDTD 1330 
440 INPUT “QUANTI NOMI DEUI INS 
ERI RE” : A 

450 IF A< 1 THEN 440 
460 Diti NSCA-1 > : F3"l : PRINT”LCLE 
ARI C 3 DOWN 1 ” 

470 POR I“0 TD A-l 
480 FRINÌ "NOME 1 * I + 1 ; 

4S0 INPUT N5K 1 1 : I F NSCIi»-”" OR 
LENCNÌCDX4 THEN 480 
500 NEXT: GOTO 1330 
510 : 

530 REM INIZIA LA RICERCA 
530 : 

540 PRI NT "CELE ARI”: : : IF F3 

-0 THEN X$- "PRIMA DEUI IN5E 
PIRE LA LISTA” 

550 IF 15(0,01-”” THEN X5-”PRIM 
A DEUI INSERIRE IL 01 AGRAMM 
A” 

560 IF X$=” ” THEN 5B0 

570 GOSUB 1440: FOR T“1 TD 1000: 

NEXT: GOTO 1380 
580 GOSUB 1000 

530 FOR K-0 TD A-ì : ES-NS CX 1 : I F 
PEEKC6531-1 THEN 630 
500 X 95“ “FREMI SHÌFT”: GDSUB 1440 
610 IF PEEKC653101 THEN 610 
630 XS-BS: GOSUB 1440 
630 1 55-LEFTS CES, 1 ) 

540 FOR Y-0 TO AL~1 : FGR X-0 TO 
LA-'l 

650 IF I $-L$ C Y , X 1 THEN 690 
6G0 NEXTX ; NEXTY 
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670 


6B0 

690 

700 

710 

750 

730 

740 

750 

760 

770 

760 

790 

600 

B10 

850 

630 

840 

850 

660 

870 

860 

690 

300 

310 

350 

930 

940 

350 


860 


X$” "IL N0ME”+STR$CK+1 > + ” IMO 
N ESISTE NEL DIAGRAMMA" : GOS 
UB 1440: 

FOR T-l !□ 600 :NEXT: GOTO 38 
0 

L-LENCB$.'i-l 

N-l :S-1 : E-l : 6-1 : NE-1 :SE = Ì :N 
□-1 :SG-1 

IF C X+L )> LA-1 THEM E"0:NE=0 
:S£-0 

IF CX-LX0 THEM O-0:NO-0:SO 

=0 

IF <Y+L>>AL-1 THEM 5-0: SE’0 
:SO“0 

IF CY-LXD THEM N=0:NE=B:NO 
=0 

IF N-l THEN UX“0:UY— l:GOSU 
B 850 : I F FL< > 0 THEN 330 
IF 8-1 THEM UX-0 : UY-1 : S6SUB 
850: IF FL< >0 THEN 830 
IF E-l THEN UX-1 :UY-0: GOSUB 
8S0 : I F FL< > 0 THEN 830 
IF 0-1 THEM UX — 1:UY=0:GOSU 
B 650: IF FLO0 THEN 830 
IF NE-1 THEM UX-1 : UY— 1 : GOS 
UB 850: IF FL<>0 THEM 830 
IF ND-1 THEN UX — 1 ; UY— 1 : GO 
SUB 050; IF FL.O0 THEM 830 
IF SE- I THEN UX-1:UY-1:GDSU 
E 850; IF FL<>0 THEM 330 
IF 50-1 THEN UX— 1: UY-1: GOS 
UB 850: IF FL< >0 THEN 830 
GOTO 660 

•ff 

REM RICERCA 
!■ 

Xl-X: Yl-Y; FL-0 

FOR U-5 TO L+l : X1-X1+UX : Yl- 

Yl+UY : MS-F1 1 □ $( E$ , U , 11 

IF MS-LSCY1 , XI ) THEN NEXT 

IF U-L+S THEN FL-1 

RETURN 

* 

REM UISUALIZZA PAROLA TRQUA 

TA 

* 

POR 1-0 TO L:F-10£H+Y*40+X: 
IF P> 2024 OR P< 1024 THEN P- 
1024 

POKE P , C PEEKC P ) AND 63) OR 


370 

3B0 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1090 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1100 

1130 

1200 

1210 

1220 

1230 

1240 

1250 

1260 


1270 


12S0 


1290 


64 ; POKE P+54272 , 0 : REM LSCY, 
X)-"tì"+LSCY, X) + ”UIA1T ” 
X-X+UX : Y-Y+UY : NEXT 
NEXTK : GOTO 1070 

» 

REM STAMPA DIAGRAMMA 

* 

PRINT’*CCLEAR3CNER01 ” ; 

FOR Q=0 TO AL- 1 : FOR OJ-0 TO 
LA-1 

PRINTLÌCQ, LO ; : NEXT: PRIMI: NE 

XI 

RETURN 

* 

* 

REM TRQUA LA CHIAUE 

* 

* 

OS- 1 *”: X$- "PREMI ’C' PER AUE 
RE LA CHIAUE” :GOSUB 1440 
GEI Affi : I F ASO’T" THEN 1100 
XS“ "ATTENDI ” : GOSUB 1440 
FOR 0-0 TO AL-1 : FOR U-0 TO 
LA-1 

P-PEEKC 1054+0*40+01 
IF P<>46 AND CIP AND 195>-0 
: THEM C$-CS+CHR$I P+64? 
NEXT: NEXT :IF CS-”” THEN CS- 

il rp I* 

PR I NT " C HOME J ” ; : FOR 1=1 TO 5 

4: PRINTCLS; NEXT 

PR I NT " I HOME 3 C 15 DOWN] CHIAUE 

XS= "PREMI LA BARRA PER TORN 
ARE AL MENU”: GOSUB 1440 
GET AS:IF ASO” ” THEN 1180 
GOTO 1550 
■ 

REM MENU 


POKE 
: POKE 
POKE 
POKE 
PR I NT 

” TAB 

« * 

PR I NT 
ERI 5C 
PRINT 
REGGI 
PRINT 


53280 , 12 : POKE 53281,12 
646, 14 

53265 , 31 : POKE 53202,5; 
53203, 2: POKE 53204,5 
”11 NERO 3 C OLEARI L 2 D0UN1 
c9 j»* * + MENU * 


”C 3 DOWNl C 11 . . 
I IL DIAGRAMMA" 
"LE DOUNJ LEI . , 
IL DIAGRAMMA ” 
"le nomi C 31 . , 


. . - I N5 


. , , COR 


IMS 
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ERI SCI LA LISTA DI PAROLE" 

1300 PRINT"C5 DOWN] £43 COR 

REGGI LA LISTA DI PAROLE" 

1310 PRINT”C2 OOWN3 CSD RIS 

□LUE IL DIAGRAMMA” 

1350 PRINT”C 3 DOWN] ” TABC15]"- S 
CEGLI 

1330 GEI AS:ÌF AS=“” THEN 1330 
1340 IF AS< ’’ 1 ” OR A$> ”5” THEN 13 
30 

1350 OH UAL CAS) GOTO 170,1370,400 
, 1S70 , 520 
1360 ; 

1370 REM CORREGGI DIAGRAMMA 
1300 : 

1330 PRINT”CCLEAR3"; : IF L$(0,0)< 
> ” ” THEN 1450 

1400 X$-”PRIMA DEU I INSERIRE IL 
DI AGRAMMA” : GOSUB 1440 : FOR T 
-1 TO 1000 : NEXT 
1410 GOTO 1520 

I 1420 GOSUB 1000 "CORREGGI IL 
DIAGRAMMA”: GOSUB 1440: GOTO 
340: 

1430 : 

1440 REM STAMPA MESSAGGIO IN EAS 
SO 

1450 : 

1460 PR1NT ”C HOME] ” : PR 1 NTU$CL5BH3SX 
5RIGHTSCS$.45-LENCX$1 )H$ "CH 
OMEKRUDFF3”; 

1470 RETURN 
1400 : 

1490 REM DEFINISCE LE STRINGHE 
1500 : 

1510 U$“ “C NERO ]C HOME] C 54 OOWN3CR 
US]”: REM 1 HOME + 54 CRSR-D 
□UN + 1 RUS-ON 
1550 S$-” 

CLEFT3L INST 

] ” 

1530 H$=”C39 LEFT] ” 

1540 CL$- ”C RUOFF 3 C R IGHT3 "+CHRSC5 

0 3 + ’’ 

C RUS D ” 

1550 RETURN 
1560 : 

1570 REM CORREGGE LISTA 
15B0 : 

1590 PRINT”CCLEAR3 ” ; ; IF F5<>0 IH 


EN 1B50 

1600 X3>” "PRIMA DEU 1 INSERIRE LA 
LI STA”: GOSUB 1440 
1 E 10 FOR T-l TO 1000: NEXT: GOTO 1 
550 

1650 PRIMI "LA LISTA IN MEMORIA E 
’ FORMATA OA”A : PR INT "PAPOLE 

CDCWN3 ” 

1630 PRIMI "SE LA PAROLA UA BENE, 
PREMI ’S’, UICEUERS 

A, PREMI ’ N 1 . C DOWN] ” 

1640 FOR 1-0 IO A-l 
1650 PRI NT "NOME ”1+1”: "NSCI3; 
1660 6 ET AS:IF ASO’^S" AND AS<>” 
N" THEN 1660 

1670 IF AS-"S” THEN PRINT:GQTO 1 
690 

1630 INPUT N5(I> 

1690 NEXTI 
1700 GOTO 1550 
1710 : 

1750 REM SPIEGAZIONI 

1730 FRI NT” C CLEAR3C 5 DOWN3 * * 

* CRUCI PUZZLE * 

v * fi 

1740 FRINISCE DOUNJ I CRUCI PUZZL 
E SONO QUEI GIOCHI ** 

1750 FRINÌ" ENIGMISTICI CONSISTE 
NT! NEL RICERCARE ** 

1760 FRINÌ** DELLE PAROLE INSERII 
E ORIZZONTALMENTE** 

1770 FRINÌ*' UERTICALNENTE □ DIAG 
□NALMENTE ” 

1700 PRIMI*' ALL'INTERNO 01 UN DI 
AGRAMMA . *' 

1790 PR I NT ”C S DQWNJ DOPO AUER CA 
NCELLATO TUTTE LE PAROLE, ” 
1000 PRIMI” ALLA FINE RIMARRANNO 
DELLE LETTERE * 

1010 PR INI ** CHE LETTE DI SEGUITO 
DARANNO LA CHIAUE.” 

1000 FRINISCE D0UIN3 QUESTO FROGE 
AMMA RISOLTE QUALSIASI ** 
1030 PR INT " CROC I PUZZLE FORNENDO’ 
NE LA CH I AUE * " 

1840 PR I NT "CE DOWN] 11 TABI 13 } **C RU 
SI PREMI UN TASTOC RUOFF ] " 
1850 WAIT 197 f 191 ; POKE 190,0 
1BB0 RETURN 
1070 END 
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UN’IDEA PER I LETTORI 


QUALSIASI COMMODORE 


L’ascensore 


Una nuova sfida per i nostri lettori: 
avete senso logico? 


m cura di Alessandro de Si mone 



precedente “sfida" ha raccolto 
numerose adesioni e ci ha spronato a 
lanciarne altre. 1 Pangrammi (CCC 
N33), purtroppo, sono stati forse 
considerali un po’ (troppo) impegna- 
tivi e le proposte pervenute in Reda- 
zione non erano di livello soddisfa- 
cente. 

Eccoci dunque a parlare di qualco- 
sa di più semplice ma. non per que- 
sto, meno valido da un punto di vista 
strettamente Logico- informatico. 

La logica 
di un ascensore 

Avete mai riflettuto sulla struttura 
elettromeccanica che sovrintende al 
funzionamento dì un ascensore? 
Quando, nell'uso quotidiano, pre- 
miamo uno dei suoi pulsanti, tutto ci 
appare mollo semplice ma. in realtà, 
è necessario che una serie di opera- 
zioni logiche, strettamente correlate 
tra di loro, gestiscano movimenti e 
meccanismi di notevole complessità. 


Ecco dunque la proposta di scrive- 
re, in Basic, un programma che, 
scandendola tastiera, faccia muove- 
re un ascensore sullo schermo e lo ar- 
resti o lo faccia proseguire nella corsa 
a seconda delle richieste effettuate da 
ipotetici utenti. 

Cile cosa deve fare 
il programma 

Supponendo di installare un ascen- 
sore in una palazzina di (almeno) 
cinque piani, dovrete assegnare, per 
ciascun piano, due pulsanti ( = tasti) 
dì '"chiamata”: uno per la salita e l’al- 
tro per la discesa. Altri sette tasti si- 
muleranno altrettanti pulsanti pre- 
senti in cabina: uno per ciascun pia- 
no oltre a quello di Alt e di Allarme. 
Ciò premesso dovrete, in definitiva, 
scrivere un programma in grado di: 

* far muovere l 1 ascensore dal punto in cui si 
trova al piano di chiamata, 

* memorizzare, in ordine, le fermate ai vari 
piani in base alle richieste che si verificano 
anche durante lo spostamento tra un piano 
e l'altro. 

■ individuare le chiamate '"doppie” ed an- 
nullarle in modo da evitare soste prolungale 
al piano 

* attendere alcuni secondi prima di richiu- 
dere le porte e riaprirle nel caso in cui un si- 
lente ne impedisca la chiusura. 

* simulare le operazioni di arresto in caso di 
Stop e di allarme. 

* verificare l’eventuale sovraccarico ed im- 
pedirne la partenza, 

* spegnere le luci interne nel caso dì prolun- 
gata inattività, 

E' ovvio che saranno privilegiati gli 
utenti del Commodore 64 che, grazie 


agli Sprìle, riusciranno più facilmen- 
te a gestire le animazioni. I possesso- 
ri del C/J2K, poi, dovrebbero realiz- 
zare listati più che divertenti. 

Saranno comunque privilegiati per 
la pubblicazione soprattutto pro- 
grammi mollo brevi e, magari, tra- 
sformati in giochi. L'ascensore e le 
sue porte, quindi, simulateli con ret- 
tangoli '"pieni 1 di bit (decimale 255) 
in modo da disegnarli con un For,„ 
PokeX,255,.. Next 

1 più apprezzati in assoluto, co- 
munque, saranno i listati facilmente 
comprensibili, pieni di REM e '"ac- 
cessibili" (—modificabili) dai nostri 
lettori, anche se principianti. 

Per standardizzare i programmi, 
che ci auguriamo giungano numero- 
si, attenetevi alle seguenti... imposi- 
zioni: 

* i pulsami presenti in cabina si nuda Idi con 
I tasti da 1 a 9; per l'allarme usate il tasto di 
freccia a sinistra mentre peri 1 Alt usate il ta- 
sto più ( + ). 

* la fila dei tasti Q W E R... utilizzateli per 
simulare la chiamata per la discesa dei ri- 
spettivi piani 1, 2, eccetera, mentre per la 
prenotazione in salita riferitevi ai tasti A* S, 

D„. 

* per il movimento dei passeggeri servitevi 
di un joystick o dei tasti funzione. 

E’ INDISPENSABILE inviare ì li- 
stati su supporto magnetico (disco o 
nastro) in modo da consentirne l’esa- 
me con maggiore velocità. 

L’indirizzo è it solito: 

SYSTEMS Editoriale 
Commodore Computer Club 
(L'ascensore) 

Viale Eamagosta, 75 
20142 Milano 
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GRAFICA 

C 64 


Due 

programmi... 

ipnotici! 


Semplicissime quanto valide 
applicazioni delle arci note routine 
grafiche di Toma 


di Paolo Agostini 


(/omt t'attento lettore avrà notato, 
da un po' di tempo la Systems Edito- 
riale si presenta in edicola con pro- 
dotti che rappresentano una risposta 
alle pressami richieste dei lettori. 

Le famose routine grafiche di Toma 
sono state riunite in un unico fascico- 
lo dì ‘‘Commodore Speciale" {tra bre- 
ve in edicola), ampliate, aggiornate, 
commentate e precedute da un vero e 
proprio mini-corso dì Linguaggio 
Macchina. 

Pervenire incontro ai lettori, vecchi 
e nuovi, appassionati di grafica, ecco 
pronti due listati semplicissimi in 
grado di tracciare urei rifinirà di curve 
modificando semplicemente i para- 
metri in ingresso. 

Gli intervalli dd valori da introdur- 
re sono piuttosto ampi e modificabili 
a volontà, ma per ciascun input ne 
sono suggeriti alcuni allo scopo di 
prender confidenza con i Listati. 


90 REM HI-RE5 PER C/6 1 * 

BB RE n E’ INDISPENSABILE CARI 
CARE E LANCIARE PRIMA LE RO 
UT INE Di TOMA 
93 ; 

100 CLR : PRI NTCHRSC 147 ) 

110 INPUT J ’N, PUNII C5-30)”iN 
1 50 INPUT >J RAGGIO (80-100)” ;R 
185 INPUT "CANCELLO HI^RES CS/N 
> ” ; CCS 

1R7 INPUT ” UNA LINEA PER MOLTA 
CS/N) " ; LLS 

130 D-2*it/N:DIM XCN>,YCN> 

1^0 POR 1-1 IO N:T“T+D 
150 XC1)-K*CQSCT);YCI)-R*5INCT) 
: NEXT 
160 5-N-I 

170 1F CCS-"3 3t THEN : «*CLEAK 
17S «-COLOR 1; H5RAF0,! 

180 FOR 1-1 TO S;Z-I+Ì 

190 POR J-Z TP N 

195 IP’ LLS“”S W THEN GOSUB 540 

800 «-DRAUJ XCI> , YC I) ,0 v X(J) , YCJ) 

,0 

£10 NEXTJ:NEXTI 

220 PDKE 130 , 0 ; UIA I T 13B,1:P0KE 
13B,0 

230 ►TEXT 1,12: GQTD 100 
240 GET AS; IF AS-’*" THEN 240 
230 RETURN 


90 REM SPIRALI PER C/b4 & RQU 
I INE DI TOMA 

31 REM BY PAOLO AGOSTINI 
92 : 

100 PRINTC:HRS£147^ 

110 INPUT "NUMERO DI SPIRALI CI 
—5 } " ; N 

120 INPUT "RAGGIO/ ANGOLO INIZ.t 
20-100) ";R 

130 NN-N*100: RA-R/NN: DUI TINN) : 
A-Al 

140 «-CLEAR: «-COLOR 1: «-GRAF 0, 

1 

150 POR J-l TO N: A-A-2*if/N 

160 T-A:TH-£*ir/100:TC0)-T 

170 FOR 1-1 TO NN: T( I )-TC I-D+T 
HiRR-RA*I 

1B0 Xl-CRR-RA^COSCTtl-l)) 

IBS Y1-CRR-RA)*SINCTCI-1)) 

190 X2-RR*C0S(T(n): Y2-RR*SINCT 

<I>) 

135 «-DRAW XI , Y1 , 0, X2 , Y2 , 0 

200 NEXTI 

210 NEXTJ 

220 PQKE 130,0: WA1T 13tì,l:P0KE 
19B, 0 

230 «-TEXI 1,12: POKE 53260,2 


Commodore Computer Club - 97 



Mi farebbe piacere che Commodore Computar Club parlasse piu spesso dei seguenti 
argomenti: 


1 / 
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GIUDIZIO SUI PROGRAMMI DI QUESTO NUMERO ■ 

K 


Ho assegnato un voto da 0 a 1 0 at programmi che indico di seguilo: ■ 




il ■ m ■ t m i 
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INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 
SECONDO LE TARIFFE VIGENTI A 


COMMODORE COMPUTER CLUB 

V.le Famagosta, 75 
20142 Milano 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 




Fin dallo sbarco in Italia della t ommodore Commodore Computer Club e il punto di rife- 
rimento di tutti gli utenti di C/64, Vie 20, C/16, Plus 4 ed ora di PC 10/20 
ed Amiga. 



Articoli didattici recensioni e programmi istruttivi ed a basso costo 
hanno fatto di Commodore Computer Club la prima rivista 
italiana d 'informatica. 

Ma, per i lettori, Commodore Computer Club non è solo rivistili è 
consulenza telefonica gratuita, software originale pubblicato a late- 
re dalla stessa casa editrice, un ponte verso Imformattca "maggio- 
re’' anche attraverso la collaborazione con le riviste sorelle ‘'Perso- 
nal Computer e Computer '. 

F per questa ragione che, anno dopo anno, aumenta il numero dei lettori che preferiscono ri- 
cevere la rivista in abbonamento invece di acquistarla in edicola. Ad essi l’editore riserva una 
sene di vantaggi esclusivi come: 

• un libro in omaggio da scegliere tra i titoli disponibili della collana I libri di Systems*; 
•l'uso di una linea telefonica speciale per richieste di consigli, e consulenza, il cui numero e le 
modalità d'uso verranno comunicate in forma riservata alla ricezione dell abbonamento; 


•un canone annuo particolarmente interessante di lire 40.000 per 1 1 fascicoli di Commodore 
Computer Club e di lire 35,000 per 11 fascicoli di Personal Computer; 

•l'esclusivo canone cumulativo di lire 65.000 per 1 1 fascicoli di Commodore Computer Club ed 
11 di Personal Computer: 

•uno sconto del 10% su tutti gli acquisti per corrispondenza dei prodotti software su disco o 
cassetta, fascicoli arretrati o libri della Systems senza limiti di quantità. 


‘ ì titoli disponìbili sono Quelli reclamizzati sull'apposita pagina pubblicitaria “La libreria di Systems''. 



inviatemi in omaggio il volume della collana i libri di Systems,— - — — 

Registrate oggi stesso il mio abbonamento a: n Commodore Computer Club (Lire 40.000) 

O Commodore Computer Club 4 Personal Computer (Lire 65.000) 


LJ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

03 ri L - , - - .p.T,.l.r.,.<r,l-r. r,, r. r ■ r 4 . P I P 4 p I h 4 4 u "T l ■ , | h h , r ■ 4 b I 4 4 h I - ■ hi, - 4,,. ■■■,, ri, ., , , p p p , & 


voi intestato. 


□ Contentandomi dei normali tempi postali ho inviato oggi stesso l'importo di lire a mezzo C/C postale M, 37952207 

ntesiato a Systems Editoriale - V le Famagosta, 75 - 20142 Milano 

via N.ro. »... telefono 

CAP Città 


Ritagliare e spedire in busta chiusa regolarmente affrancala a Systems Editoriale - V.le Famagosta. 75 20142 Milano. 
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LEGGO Vii 
PERCHÈ 
HO UN’IDEA 
FISSA 

IN TESTA 


L ’ immaginazione 
al potere 


VlSGOREClSimARE 


0 lettore di VR Video registrare 
è giovane, dinamico, creativo. Dì cultura 
e reddito superiore alla media, possiede 
spesso più di un videoregistratore, 
oltre airimpianto hi-fi e ai 
computer: nei tempo libero, non 
rinuncia a viaggi in Italia e 
all'estero, e a cinema, teatro e 
spettacoli sportivi in genere. Usa 
il videoregistratore non solo per i 
programmi tv o preincisi, ma 
anche per riprendere i momenti 
felici in famiglia, per creare una 
videoteca personale. E tu. che 

lettore sei? 





La funzione 

Random: 

applicazioni 

pratiche 


Una trattazione approfondita, 
corredata di numerosi programmi, 
di una deile classiche applicazioni 
informatiche : la casualità e la 
conseguente “ Fortuna " 


ili Alessandro- de Si mone 


Da centinaia di anni, in pratica da quando l'uomo ha inizia- 
to a ragionare, molti eventi, piacevoli o meno, sono stati attri- 
buiti alla Sorte, spesso trascurando la responsabilità di coloro 
che, in un modo o in un altro, hanno partecipato a 
provoca rii. 


A volte, infatti, si attribuisce alla “Sfortuna" un incidente au- 


tomobilistico determinato da pura, scientifica incoscienza; al- 
tre volte si identifica nei gatti neri, o nelle scale a pioli, la causa 
di avversità capitate. 
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La mentalità, davvero comoda, di assegnare ad altri respon- 
sabilità proprie, ha provocato, e provoca tuttora, il fiorire di 
giochi basati suda fortuna e sulla casualità, permettendo, co- 
me inevitabile conseguenza, il diffondersi di scommesse di o- 
gni tipo. 

La creduloneria della gente ha consentito, altresì, la possibi- 
lità di "manipolare" a proprio vantaggio alcuni giochi c l'elen- 
co delle truffe possibili non è ancora completo. 

Molto spesso, d'altra parte, un esame obiettivo dei fenomeni 
c delle loro cause è alla base di interessanti quanto utili ricer- 
che scientifiche: conoscere il numero di ammalati nel caso si 
determinino certe condizioni, determinare la probabilità stes- 
sa del verificarsi di dette condizioni, non può che essere utile 
per la prevenzione nel campo medico. 

Prevedere, analogamente, il numero di disoccupati nel caso 
si verifichi una nuova crisi del petrolio, e proporre fittale “ri- 
ciclo" dei lavoratori, è uno dei problemi più studiati di moder- 
ni economista. 

Ecco, dunque, l'importanza di esaminare da vicino il princi- 
pale compito che un computer può svolgere: generare in suc- 
■ cessione numeri casuali, non affetti, cioè, da alcun legame 
tra loro. 


Che cosa è il caso? 

Quando si inizia lo studio del calcolo delle probabilità è qua- 
si inevitabile riferirsi ad un oggetto che tutti noi abbiamo visto, 
e adoperato, almeno una volta: il dado da gioco. 

Naturalmente ci riferiamo a un dado “ineccepibile” da un 
punto di vista delie possibilità che offre. In accordo alla teoria 
della probabilità, infatti, ogni faccia del cubo dovrebbe avere 
le stesse probilità di uscita: ciò significa che un dado è conside- 
rato "ideale" se. in seguito a 6000 lanci, ciascuna delle sci facce 
è comparsa circa 1000 volte. Il motivo di un numero di lanci 
talmente elevato è dovuto al faltcche la teoria della probabili- 
tà è valida solo se il numero delle possibilità (sci. nel nostro ca- 
so) sia di gran lunga inferiore a quello degli eventi (seimila, 
nell'esempio riporato). 
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Sarebbe sciocco, infatti, attendersi la comparsa di ciascuna 
delle sei facce effettuando altrettanti lanci! Purtroppo la gente 
non applica il ragionamento appena decritto, e la conseguen- 
za di tale trascuratezza porta alla sciagurata teoria dei “ritardi" 
in base alla quale, ad esempio, se un certo numero de! Lotto 
non \ iene estratto da un centinaio di settimane, dovrebbe ave- 
re una maggior probabilità di estrazione rispetto agli altri 
89 numeri. 

Un ritardo, infatti, a causa dell'eia va to numero delle pedine 
(90), incomincia a diventare consistente dopo un migliaio di 
"mancate uscite c non dopo qualche centinaio di settimane di 
assenza. 


Il caso e il computer 


Abbiamo accennato a due giochi di certo diversi, tenendo 
conio delle possibilità. Ma oltre al dado (6 Iacee), alla Tombola 
(90 pedine) vi sono moltissimi altri giochi (e non) in cui le pos- 
sibilità cambiano in modo notevole. Le sole carte da gioco fan- 

Cu 

no venire in mente una gran varietà di cast perciò che riguarda 
il numero di carte: 40 (napoletane). 52 ( francesi), senza contare 
le "varietà " tra cui Canasta (due mazzi di carte). Poker (32 car- 
te oppure 52) ed altri giochi in cui il numero varia conside- 
revolmente. 

Anche il Totocalcio, il Totip. l’Enalotto hanno la loro parte 
con tre possibilità (1. X. 2). per non parlare della “codificazio- 
ne” di vari tonici che vedono impegnati giocatori c squadre va- 
riamente assortiti. 

Come è possibile, dunque, utilizzare il computer per simula- 
re un qualsiasi evento? Come, inoltre, progettare un sistema 
software in modo da accontentare chi sì accinge a studiare le- 
nomati legati a possibilità non legate a giochi o eventi già 
noti? 

Nella stesura del cosiddetto software di base, i progettisti dei 
calcolatori hanno provveduto ad inserire, nei linguaggi di pro- 
grammazione (tra cui il Basic) uno “strumento" software in 
grado di soddisfare, con opportune manipolazioni, ogni 
esigenza. 
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Qualunque linguaggio, insomma, è in grado di generare un 
numero casuale il cui valore è compreso tra zero ed uno. Ve ne 
potete render conto facendo girare il seguente programma di 
una sola riga: 

100 PR1NT RND(0):GOTO 100 

se la visualizzazione vi sembra che scorra troppo in fretta, po- 
tete premere il tasto CTRL (se possedete un Vic-20 o un C/64) 
oppure il tastino Commodore (primo tasto in basso a sinistra) 
nel caso possediate un C/16 oppure un Plus/4; se, poi, usate il 
C/128 in modo 128 potete premere il tasto No Scroll per bloc- 
carla; premendolo nuovamente la visualizzazione riprenderà. 
Con il tasto Ru n/Stop, come dovreste già sapere, si interrompe 
il programma. 

Ricordiamo che i numeri che compaiono sono tutti decimali 
perchè sono preceduti dal carattere punto (.). In effetti siamo a- 
bituati a scrivere 0,56... ma, per questioni di praticità, molti 
computer (e calcolatrici) preferiscono risparmiare la visualiz- 
zazione dello zero per consentire la visione di un maggior nu- 
mero di cifre significative dopo la virgola (che però è un 
punto!..) 

Cerchiamo, ora. di capire due cose: che significa RND e per- 
chè la generazione di un numero compreso tra zero ed uno 
può andar bene iti qualsiasi caso. 


La funzione RND 

Il nome RND rappresenta l'abbreviazione di Randotn che, 
in Inglese, vuol dire “a casaccio". La strana forma sintattica 
scelta perla funzione apparirà più chiara in seguito, quando ci 
accorgeremo che, in effetti, è possibile inserire, tra parentesi, 
non soltanto il numero zero ma anche altri valori tra cui, in 
particolare, uno (I) e valori negativi, come meno uno (-1). 

Per ora ci limiteremo ad utilizzare la funzione con Pareo- 
mento nullo precisando che, in effetti, il valore che ne risulta 
non è realmente casuale, ma pseudo-casuale, dal momento 
che la sua elaborazione non è completamente slegala da even- 
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li prevedibili (caratteristica peculiare del vero" caso fortuito). 

Il computer infatti, assume, come base dei calcoli, loro log io 
i lite rnoj a cui continua tuo di ile a (al ritmo di un aggiornamen- 
to ogni sessantesimo di secondo) è una garanzia sufficiente 
per una dignitosa imprevedibilità. 

Approfondire il discorso sui numeri casuali e pseudo-casuali 
sarebbe fuori luogo, oltre che complesso, e ci limiteremo, nella 
presente trattazione, ad esaminare ed utilizzare la comoda 
funzione, presente, del resto, in qualsiasi linguaggio Basic uti- 
lizzato sul moderni calcolatori. 

Se riprendiamo alcune regole di matematica, troveremo su- 
bito semplici applicazioni che consentiranno di ' evadere" dal 
ristretto intervallo numerico prima visto {zero, uno). 
Modifichiamo il semplice programma dì prima come 
segue: 


100 À=RND{0) 
no PRINT A* 100 
120 GOTO 100 


Ai principianti (che farebbero bene, però, a prender nota del- 
la “scheda" presente in altra parte di questo inserto) racco- 


manderemo soltanto di non confondere il carattere alfabetico 
"Q' con il numero zero “0'", di premere il tasto Return alla fine 
della digitazione di ogni riga Basic e di far partire il program- 
ma digitando RUN c. subito dopo, il tasto return. Ricordere- 
mo. inoltre, che per "variabile" si intende un gruppo di lettere 
alfabetiche {come “A", in riga 100 e 1 10) che vengono utilizzate 
come “contenitori" di numeri, risultati, elaborazioni, eccetera. 

Facendo girare il programma, dicevamo, noteremo che i nu- 
meri visualizzati saranno ancora in forma decimale (con una 


parte numerica, cioè, presente dopo la virgola) ma compresi 
tra zero c 100. Con la riga Basic 1 10, infatti, non abbiamo fatto 
aliro che moltiplicare per 100 il numero casuale generato dalla 
riga 100 e questo fatto, come è noto, corrisponde a "spostare" la 
virgola di due posti verso destra. 

Volendo eliminare la parte decimale, possiamo ricorrere ad 
una comoda funzione che, appunto, restituisce la parie intera 
(INT) di un numero decimale. 

Modificate il programma di prima come segue: 
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100 À=RND(0) 

110 Pkivr ÌNT(AMOO) 

no co ro ioo 


Facendo girare il programma noteremo la visualizzazione 
continua di valori interi, compresi tra Oe 100, In effetti il valore 
100 non compare mai perché anche se il valore RND valesse 
0 .99999999 , questo, moltiplicato per 100, tornirebbe la cifra 99. 
Si potrebbe tentane di modificare 100 con 101 (riga 1 10) ma pò- 
irebbe capitare il caso in cui il valore determinato da RND sia 
0.999999999 che porterebbe ai valore intero di 101, 

Nasce, così, il problema di individuare l'esatto intervallo di 
azione di RN D, che può essere affrontato facendo girare, ad e- 
sempio, il seguente programma: 


m ns=- , oooooo t :Y=i 

11(1 A = RND(fl) 

12» U A>\TH£N X=À: PRINT X 
125 IF A<Y THEN A: PRIìNT V 
E 30 GOTO 11» 


La prima riga (100) azzera ['orologio interno (ce ne potremo 
servire poi per conteggiare il tempo trascorso nella ricerca del 
valore massimo) ed assegna alla variabile Y il valore unitario; 
la seconda riga {1 10) genera un numero casuale, La riga 120 
“associa” alla variabile X il valore elaborato di Asolo se questo 
risulta maggiore di queliti precedentemente memorizzato. La 
riga 125. al contrario, memorizza il valore di A solo se questo 
risulta piu piccolo di quello contenuto in Y. 

Non appena sì fa girare il programma, alcuni numeri (tra cui 
il “minimo” zero) vengono subito visualizzati e in seguito sem- 
bra che non accada nulla. Il programma, però, sta girando (ad 
una velocità, tra l'altro, ragguardevole) ma i numeri casuali, 
pur fornendo almeno una volta il valore nullo, non sembrano 
raggiungere iì valore 0.999999999, Dopo aver fatto girare il pro- 
gramma per oltre un'ora, abbiamo constatato che iì valore più 
grande elaborato era: 


»,9%U972*7 


E' probabile che, facendo girare il programma per un’intera 
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giornata, si pervenga a risultati diversi e tali, comunque, da 
mettere Ln difficoltà il programma che visualizzava numeri in- 
teri compresi tra 0 e 100. 


Per cièche ci riguarda, tuttavia, possiamo affermare che un 
C/64, sottoposto alla funzione R.ND. elabora un numero com- 
preso tra zero e 0.996097267. 


Abbiamo visto come sia semplice generare un numero ca- 
suale compreso tra 0 e 100. Ricorrendo ad analoghi ragiona- 
menti, sarà possibile generare altri numeri appartenenti all'in- 
tervallo che più ci aggrada. A parie il caso banale dei valori 
compresi tra zero ed una potenza di dieci (10. 100. 1000. 
...1000000 eccetera) vediamo di risolvere alcuni casi parti- 
colari: 


Numeri casuali multipli 

Ricordiamo brevemente che un numero si dice multiplo dì 
un altro se. diviso per quest'ultimo, fornisce un risultato intero 
(privo, cioè di parte decimale). Esempi: 

1768/4 = 442 (1768 è un multiplo di 4) 

161/7-23 (161 è un multiplo di 7) 

871/67= 13 (871 c un multiplo di 67) 

1768/3 = 589333 (1768 non è un multi pio di 3) 

I6I/5—32.2 (161 non è un multiplo di 5) 

Eccetera 


Se volete ottenere numeri casuali non maggiori di un certo 
valore e. contemporaneamente, multipli di un valore assegna- 


lo, è necessario attribuire tale valore ad una variabile di como- 


do (B, nell’esempio che segue) e moltiplicarla per il numero ca- 
suale moltiplicato, a sua volta, per I! valore massimo desidera- 
to. Digitate il seguente programma esplicativo: 


Kit) A = RND(tì) 

Ito B=7:REM MODULO 
1 15 MA= 10():RKM MASSIMO 
121) à=INT(A*MA/B)*B 
130 PRIM I' À:GOTO UNI 
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Questo programma visualizza di continuo un numero casua- 
le intero compreso tra zero e 100 con la caratteristica di essere 
anche divisibile per 7. 

Se modificate la riga 1 10 (assegnando a B un altro valore, co- 
me B = 5 ) e, magari, anche la riga l i 5 (MA = 1343), dopo il soli- 
to RUN potrete constatare la continua stampa di numeri inte- 
ri. multipli di 5, che non superano mai ii valore impostato 
1343. 


Numeri casuali anche negativi 

In questo caso vogliamo scrivere un programma che prenda 
in considerazione aneli c i numeri negativi. Abbiamo visto, pe- 
rò. che vengon sempre generati numeri positivi e che il valore 
più piccolo è zero. 

Non dobbiamo dimenticare, però, che la differenza ira un 
numero positivo ed uno negativo è rappresentata soltanto dal 
segno. Inoltre, nel linguaggio Basic, è possibile un'espressione 
del genere: 

À=-A 


che, apparentemente con tra cklittoria, serve per cambiare il se- 
gno ad un qualsiasi valore numerico: Esempio: 

À= IOOlPRINT ÀiPRINT A 


Da questa esperienza deduciamo che la sintassi: A = - A signi- 
fica esattamente: ‘Alla variabile A assegna ADESSO il valore 
che PRIMA possedeva la stessa variabile A, cambiato di 
segno \ 


Tornando al problema della generazione di numeri casuali 
rivi o negativi, provate a digitare il seguente listato: 


10(1 A=RMD(0) 
m B=RND(0) 

MI) IF Bril.5 THEN A = - A 
115 FRINÌ A 
120 GOTO Stm 
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Come si può notare, si generano due numeri casuali; il primo 
(A) sarà il valore da visualizzare; il secondo, invece. (B) servirà 
soltanto per decidere il segno algebrico dei primo. 11 valore ca- 
suale di B. infatti, può esser compreso ira zero ed uno: possia- 
mo ragionevolmente dedurre che la probabilità che sia gene- 
rato un numero compreso tra zero e 0.5 sia all’incirca eguale a 
quella secondo cui sia compreso tra 0.5 e !. 

Con la riga 1 10 siamo 'sicuri'' che il 50% delle volle verrà ge- 
nerato un numero positivo e. di conseguenza, il 50% restante 
verrà generato un valore negativo. Guardando attentamente lo 
schermo, mentre il programma gira, è possibile constatare una 
presenza di segni negativi e positivi in egual misura. 

...E quasi senza accorgercene abbiamo gettalo le basi per una 
prima truffa! Provate a modificare la riga ISO come segue: 

1 11) IF li). 7 THEN A=-A 


Ora abbiamo costretto il programma a generare un segno ne- 
gativo solo se RND(B) è maggiore di 0.7. vale a dire nel 30% dei 
casi. Variando a volontà la riga 1 10 potete fare in modo di os- 
servare molto raramente un segno positivo (o negativo) alte- 
rando semplicemente il valore del confronto presente in 
riga 1 10. 

Se si utilizza La tecnica descritta per far apparire più fmeno) 
frequentemente una certa carta da gioco oppure la faccia di un 
dado, ecco che i giochi elettronici si prestano per le truffe più 
disparate: nessun oggelio può esser manipolato meglio delle 
macchinette mangiasoldi (slot mutiline, video poker, eccetera). 

Tornando, però, ad argomenti meno... truffaldini, siamo si- 
curi che il lettore ha compreso perfettamente in che modo "e- 
strarre da un calcolatore un qualsiasi numero casuale, nella 
percentuale desiderata, nonostante il limite deH'inier vallo 
compreso tra zero ed uno. 


Numeri maggiori di un certo valore 

Anche questo caso, sul quale ci intratteniamo molto breve- 
mente, è basato su un banale ragionamento matematico: un 
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numero A è maggiore di un altro B se. sottraendo algebrica- 
mente B da A si ottiene un valore maggiore dì zero. 


Esempi: 

100-25=75: 100)25 
100-(-7)= 107: 100>-7 
-10*(-3l)=2k -10)-3) 

Non dobbiamo trascurare, infatti, che in algebra un doppio 
segno negativo diventa positivo. Volendo, ad esempio, genera- 
re "numeri casuali compresi tra 34 e 150, il listato che segue po- 
trà svolgerne il compito: 


100 A = RND(0) 

110 B=34:REM MIMMO 
120 C= 150: REM MASSIMO 
130 D=B+INT(A*(C-B+1» 

140 IF D=B OR D=C THEN PRfNT CHR$(18); 

150 FRI NT D;CHR$(146);:GOTO 100 

Si noti la somma di “1" in riga 130, dovuta alla necessità di 
considerare anche il valore massimo (150, nel caso ipotizzato). 

Approfitteremo del listato, comunque, per sottolineare la 
presenza del carattere di punto e virgola (;) nelle righe 1 40 e 1 50 
che costringe il computer a visualizzare i numeri l'uno di se- 
guito all'altro. Omettendo il carattere di punto e virgola, i valo- 
ri casuali verrebbero .stampati l'uno sotto l’altro, come nei li- 
stati finora visti. 

Si noti, inoltre, la presenza dei due caratteri speciali: 

CHR$(18) ha il compito di invertire i colori di ciò che verrà 
stampato in seguito. 

CHR$(146) ha il compito di ripristinare i colori normali. 

La presenza dei due caratteri speciali consentirà di indivi- 
duare rapidamente su video, grazie al cambio del colore, le- 
ventuale "estrazione" sia del valore minimo (34) sia di quello 
massimo ( 1 50). 
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] listati da digitare 


Siamo ora in grado di comprendere con facilità levarie istru- 
zioni dei programmi che fanno parte del presente inserto. Li e- 
samineremo. comunque, uno per uno mettendo in risalto le lo- 
ro peculiarità sia per ciò che riguarda il compito che svolgono 
sia. soprattutto, per mettere in luce particolari tecniche di pro- 
grammazione che i! lettore potrà utilizzare in propri listati. 

Ricordiamo ai lettori principianti di digitare i programmi co- 
sì come sono pubblicati, riga per riga, e di premere il tasto Re- 
tti rn alla fine di ogni riga, anche se sembra che non ve ne sia bi- 
sogno: le righe Basic vengono accettate dal computer soltanto 
se si preme quel tasto che. non a caso, è i! più grande che si tro- 
va sulla tastiera. 

Se. digitato il comando di partenza (RUN) compaiono se- 
gnalazioni di errore oppure il programma non gira come de- 
scritto nel paragrafo che lo commenta, tenendo premuto il ta- 
sto Ru n/Stop. premete il tasto Restore. Subito dopo digitate 
LIST e verificate che ciò che avete trascritto sia esattamente i- 
dentico a ciò che compare sulla rivista. Se lo desiderate potete 
evitare di trascrivere tutto ciò che è presente sul rigo dopo il co- 
mando REM, in quelle righe Basic che, ovviamente, lo 
conteneono. 


1- Indovina un numero (a) 

E' indubbiamente il programma più banale che possa capi- 
tare. anche ad un principiante. Ne approfitteremo, però, per 
commentarlo adeguatamente in modo da permettere ai lettori 
di comprenderlo nei minimi dettagli. 

Nella riga 250 si assegnano a variabili stringa alcuni caratteri 
"speciali " tipici dei computer Commodore. Ricordando che 
con il simbolo: 

tiri- 


si intende: “Premere il tasto Return”, se digitate: 

PRTNT CHFT$(65) <R> 
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verrà visualizzato il carattere alfabetico "A". Ripetendola pro- 
va vi accorgerete che ad ognuno dei 255 valori possibili (rac- 
chiusi tra parentesi) corrisponderà un determinato carattere 
(66= B, 67=C. eccetera). 

Alcuni valori, però, non hanno alcun significato (0, 1, 12 ed 
altri). Altri ne hanno uno particolare: 144 cambia ih nero il co- 
lore del cursore lampeggiante; 19 lo sposta in alto a sinistra su! 
video, 30 lo colora in verde, eccetera. 

In particolare, con il valore 147 si cancella lo schermo e ne 
consegue che assegnare alla variabile stringa Cl$ il carattere 
“speciale " 147. significa attribuire la capacità di eliminare 
qualsiasi carattere presente sul video tutte le volte che viene e- 
seguito il comando PRINT CLJ. 

Analogamente. 1 7 è il codice per spostare il cursore in basso 
di un rigo e 18, invece, permetterà di invertire i colori dei carat- 
teri che. in seguito, verranno stampati. Esempi: 


PRINT C H HS( I 8)” PROVA” < R> 

PRINT CHRS( 147)”C ANCELLG” <R> 

PRINT CHRS(147)CHRS(18)”PlPPO” <K> 

Allo stesso modo, nella riga 300, vengono assegnate ad altre 
quattro stringhe altrettanti messaggi, da far apparire in seguito 
a seconda dei casi verificati. 

Con la riga 350. che cancella lo schermo e fa apparire un 
messaggio, inizia il gioco vero e proprio. 

La riga 400 chiede l’esponente del numero dieci in modo da 
stabilire il “campo" in cui generare un numero casuale e, se e- 
sagerate oppure sbagialtc a digitare, ripete la domanda. Non 
dimenticate di premere il tasto Return dopo aver battuto i va- 
lori numerici che il programma vi chiederà. 

La riga 550 genera il numero casuale secondo le modalità vi- 
ste in precedenza, mentre le righe successive rappresentano li- 
na sorta di “filtro'" per la vostra risposta: 

La riga 650, infatti, fa apprire il messaggio PI$ (cioè “Troppo 
piccolo") nel caso in cui il valore da voi digitato sia minore da 
quello scelto dal computer. 

La riga 700 fa apparire il messaggio contenuto in GR$ nel ca- 
so contrario. 

Solo se avete indovinato apparirà la stringa ESS che confer- 
ma la vittoria. 
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100 REM INDOUINA UN NUMERO 
150 REM PRIMA UERSIONE 
500 : 

550 C1$«CHR$C147>;C£$-CHRSC1?) :C3$=CHR 
SC 18 j : REM DEFINIZIONE STRINGHE 
300 P I S“ "TROPPO PICCOLO” : GRS-"TROPFO G 
RANDE" : E5$= "ESATTO ! " : REM OEF .MESSA 
GGI 

350 PRINTC1SC3S” INDOCINA UN NUMERO "CES 
400 INPUT "POTENZA DI 10 MAX Cl/6>”; PD 
: I F PD< 1 OR PD> 6 THEN 350: REM POTÈ 
NZA DI 10 

450 PR INTCSSP’O .K,: DEUI INDDU1NARE UN 
NUMERO”: REM DOMANDA 
500 PRINTC5S "COMPRESO TRA 0 E”10tPD 
550 X-INTCRNDC0^-‘10TPO? : REM GENERAZION 
E NUMERO CASUALE COMPRESO NELL ’ I NT 
ERUALLQ 

600 PRINTC8S; : INPUT "DIGITA UALORE”;NX 
650 IF NX< X THEN PRI NTPIS : GOTO 600 
700 IF NX> X THEN PR INTGRS : GOTO 600 
750 PRINTESS : REM INDOUINATD! 

B00 END 


2- Indovina un numero (b) 

Giocando con il programma precedente, e imponendo un c- 
sponente elevato al numero 10, ci accorgiamo di impiegare 
molto tempo per portare a termine il gioco. Questa nuova ver- 
sione ha il compito dì far capire al lettore in che modo è possi- 
bile intervenire su un programma per renderlo più interessan- 
te oppure più completo. 

Trascurando di commentare le righe con caratteristiche si- 
mili a quelle viste nel listato precedente, faremo notare la pre- 
senza. stavolta, di più messaggi (righe 150- 170) da visualizza- 
re a seconda del valore digitato. 
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Si noti, inoltre, ia comparsa della variabile Y (riga 240) che 
ha il compito di contare i tentativi effettuati per indovinare 


il numero. 

Il lettore potrà studiare attentamente le righe 270-3 1 0 che, fil- 
trando opportunamente la risposta del giocatore, visualizzano 
uno dei messaggi disponibili. Se. ad esempi’o. il valore digitato 
è maggiore di quello stabilito dai computer, non comparirà 
semplicemente, come nel programma di prima, il generico 
messaggio “Troppo grande”, ma. a seconda della... lontananza 
dalla verità, comparirà ”E' grandissimo", “E 1 troppo grande . 
“E’ troppo grande ma ci sei vicinissimo!" 

Una volta indovinato il numero compare anche LI numero di 


tentativi compiuti. 


100 REM INDOCINA UN NUMERO 

110 REM SECONDA UERSIONE 

1£0 : 

130 C1$ = CHRS( 147 3 : C2$-CHR$ ( 17 3 : C3$=CHR 
$(183: REM DEFINIZIONE CARATTERI SP 
EC I ftL I 

140 p 1 35= "TROPPO PICCOLO": GR$=”TR0PP0 G 
RANDE” : ESS*-” ESATTO! ” : REM DEFIN I Z . M 
ASSAGG I 

150 MI $*C3$ + "E ’ PICCOLISSIMO” : MAS-C3S+ 
”E 1 BRANDISSIMO” : REM DEF . MESSAGGI 

160 U1$=C3£+”E ’ TROPPO PICCOLO, MA CI 
SEI UICINISSIMO! ” 

170 U8$-C3$+”E ‘ TROPPO GRANDE, MA CI S 
E I UICINISSIMO!” 

180 PRINTC1SC3S” INDOCINA UN NUMERO ”C£$ 

190 INPUT "POTENZA DI 10 MAX C1/63";PD 
: IF PD< 1 OR PD> E THEN 1B0: REM POTÈ 
NZA DI 10 

£00 PRI NTC£$ ”D . K . : DEUI INDOUINARE UN 
NUMERO" 

£10 PRINTCES "COMPRESO TRA 0 E" 10TPD 

££0 X“ INT C RND ( 0 3 “10TPD 3 : I F X-0 THEN ££ 
0 ; REM GENERAZIONE NUMERO CASUALE 
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£30 REM Y-CQNTATORE DI TENTATICI EFFE! 
TUAT I 

£40 Y-Y+l : PRINTCES; : INPUT "DIGITA UALQ 
RE";NX:REM RICHIESTA NUMERO 
£50 IF X=NX THEN PR INTESS : PR INT "HA I IN 
□QUI NATO DOPO "Y "TENTAI I UI END 
£G0 IF NX>X*.g AND NX<X THEN PRINTU 1 S: 
GOTO 540: REM DETERMINAZIONE ORDINE 
DI GRANDEZZA 

570 IF NX<X*1 . 1 AND NX>X THEN FRI NTU535 
: GOTO 540 

5B0 IF NX< X* . 5 THEN PR I NTM I $ : GOTD 540 
530 IF NX< X THEN PR I NTP I $ : GOTO 540 
300 IF NX>X*1.5 THEN PRINTMAS : GOTO 540 
310 IF NX> X THEN PR I NTGRS : GOTO 540 
350 END 


3 * Affidabilità del computer 


Nella prima pane dell’inserto abbiamo visto che un sistema 
casuale è considerato tale solo se tutti i numeri possibili hanno 
la stessa probabilità di estrazione. 

Il nostro computer possiede tali prerogative oppure qualche 
valore casuale viene generato più facilmente (difficilmente) di 
un altro? 

Per stabilirlo affideremo allo stesso computer il compito di 
calcolare la sua attendibilità. 

Dopo aver digitato (e verificato) il programma, battete, come 
al solito. RUN (R). Il calcolatore chiederà il numero di possi- 
bilità da esaminare. 

Ciò significa che dovete digitare il numero di casi possibili: 6 
per verificare 1 attendibilità nel caso di giochi basati sul lancio 
dei dadi: 90 per la tombola; 3 per la schedina Totocalcio (1. 2. 
X); 40 per giochi con carte napoletane e così via. 

Alla successiva domanda (Quante estrazioni?) dovete battere 
il numero di volte che il computer deve generare un numero 
casuale compreso nell ‘intervallo stabilito precedentemente. 
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Naturalmente tale valore deve essere in accordo con le leggi 
della probabilità, vale a dire almeno cento volte il numero dei 
casi possibili: 600 per i dadi, 9000 per la tombola, eccetera. 

Dopo aver battuto il tasto Return, il computer passerà a gene- 
rare i numeri casuali e visualizzerà dì continuo il numero di 
tentativi. Al termine comparirà l’elenco delle estrazioni ellet- 
tuate. con tanto di percentuali. 

Si ricorda che La variabile X% non ha nulla a che lare con le 
percentuali, di cui possiede solo il simbolo. Questo modo un 
po' strano di indicare una variabile, serve a definire le variabili 
intere, vale a dire particolari valori numerici privi di parte 
decimale. 

100 REH DETERH I NA2 1 ONE AFF1DABIL1TA ’ □ 
ELLA CASUALITÀ' DI UN CDHPUTER 
110 : 

122 PRINTCHFSC 147> : INPUT ”N . POSSIBILI 
TA ’ ” ; NP : I F NP<3 OR NP> 100 THEN 120 
130 Din X*;C NP D : PR I NICHRS C 147 ) 

140 INPUT "QUANTE ESTRAZIONI NE : 1F NE 
<NP THEN 120 
150 FQR 1=1 TO NE 

160 X= I NIC ENOC b:»*cnp + i:o : IF X**0 iHEN 1 
60 

170 X%(X ) =-X*s C X } + 1 : PRINTCHRSC ÌS'J I : NEXT 
1 00 PRINTCHRSt 147 j ”M . ESTRAZIONI 

PERCENTUALE " : PR I NT 

190 POP 1 = 1 TO NP: PR I NT I . CHRS < 18 >X\C I 5 
, tX\C 1 1*1 001 /NE: NEXT 
200 PRIMT : FRINT "SU UN TOTALE DI"NE’’EST 
RAZ I ON I " 


4- Minitombola 

Questo programma non è che una variante di quello picce- 
dente e consente di generare, uno per uno, e per una sola volta, 
tutti i numeri determinati rispondendo alla prima domanda: 
“Numeri da estrarre?". 
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Se, ad esempio, digitate 90 a tale richiesta, noterete che, in se- 
guito, i valori verranno estratti, in modo casuale, l’uno dopo 
l'altro e per una volta soltanto, fino a che non verrà generato 
l'ultimo valore. 

Si noterà che i primi valori verranno visualizzati con notevo- 
le rapidità. Un po' per volta, però, tale velocità diminuirà sem- 
pre più perchè il calcolatore è costretto a scartare tutti i valori 
che. pur appartenendo all’intervallo impostato, sono già 
stati estratti. 


100 

110 

150 

130 

140 

150 

160 

170 

180 

190 

500 

510 


550 

530 

540 

£50 

560 

570 


REM MINITQMBOLA 


■ 

FOR 1-1 IO 4: K$“K$+CHR$C 355 : NEXT : R 
EM CREA SIRINGA FORMATA OA 4 SPAZI 
FOR 1-1 TO 4: Ul$=UiS + CHR$C 157) : NEXT : 
REM CREA STRINGA DI 4 CRSR LEFT 
Q$*K$ + U$ : REM SDMMA LE DUE STRINGHE 
PRINTCHRSC 1475 ; INPUT ”N. DA E5TRAR 
RE ” ; NE : I F NEO OR NE>1000 THEN 1S0 
PRINTCHRSC 1475 ”UUDI UNA PAUSA TRA 
UN’ESTRAZIONE E L’ALTRA? (S/N 5" 
GOSUB 570 : Y“0 : IF A$-"S” THEN Y-l 
DIM X*4(NE5 : PRINTCHRSC 147 5 TABC5)”- 
NUMERO DI ESTRAZIONI EFFETTUATE” 
FOR 1-1 TO NE: REM ESEGUE E5TRAZ10N 
I 


X™ I NT ( RND ( 0 5 *■ CNE + 1 5 5 : 1 F X-0 OH X’iC 
X5-1 THEN 500 

X*i( X 5“1 : I F Y-l THEN GOSUB 310: REM 
ESAMINA SE ESTRAZIONE E’ GIÀ’ AUUE 
NUTA 

PR I MTCHRSC 19 5 I : NEXT: FPINTCHRffi (-.1475 
REM FORI “ITONE SPRINTI ; CHPSC 105X**C I 
5 : NEXT 
END 


REM ESAME TASTO PREMUTO 
GET AS : I F A$-”’’ THEN R -7 © 
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£00 RETURN 
290 : 

300 REN UI SUAL I ZZA2 1 ONE NUMERO ESTRATT 

□ 

310 FRINÌ "NUMERO ESTRATTO ”Q$ ; X 
320 PRI NT : FRINÌ "PREMI UN TASTO’’ : GOSUB 
270 : RETURN 
330 END 

5- Massimo & Minimo 

Questo brevissimo listato serve solo a verificare che, in effetti, 
è possibile generare un qualsiasi valore numerico compreso 
all'interno di un intervallo stabilito. 

11 programma, grazie al GOTO140 di riga 160, non si lerma 
mai (a meno che premiate il tasto Ru n/Stop) e visualizza di 
continuo t valori generati appartenenti aìTintervallo prescelto. 
La riga 1 50 non viene mai "att ivata’' dal momento che non do- 
vrebbe mai capitare il caso di una estrazione che esca dai ì imi- 
ti imposti. 

In reverse appariranno, se estratti, i valori che coincidono 
con il minimo oppure con il massimo impostato. 

100 REM NUMERO RANDOM COMPRESO TRA UN 
MINIMO ED UN MASSIMO 
110 : 

120 INPUT "UALORE MINIMO” ;UÌ 
130 INPUT "UALORE MASSIMO” ;U2 
140 X=Ul-*-INTC RNOC0) *CU2-UÌ+Ì ) ) : IF X“U1 
OR X=U2 THEN PRI NTCHRS ( 1B ) ; 

150 IF X<U1 OR X> U2 THEN PR I NT "ERRORE ” 

: END 

1B0 PRINTX ; CHRSC 1463 ; : GOTO 140 

6- Lancio di due dadi 

Questo programma presenta una novità rispetto ai preceden- 
ti: il menu di scelta. Molti programmi sono, infatti, in grado di 
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svolgere numerosi compiti e tocca all'utente indicare la sua 
scelta. 

In questo caso vi sono due possibilità: il lancio di due dadi 
f premendo il tasto 1) oppure il lancio di un solo dado. 

Nel primo caso, ad ogni pressione di un tasto, verrà simulato 
un lancio, assolutamente casuale. 

Se. invece, avete premuto il tasto 2. verrà posta una domanda 
sul tipo di computer che state adoperando. Tale precisazione è 
indispensabile poiché è necessario ricorrere a comandi POKE 
che. se mal utilizzati, rischiano di bloccare il computer. In casi 
come questi, comunque, tenete presente che non è possibile 
danneggiare il vostro amato calcolatore: al massimo sarete co- 
stretti a spegnerlo e riaccenderlo, perdendo, putroppo. tutto ciò 
che avevate digitato lino a quel momento. Ecco perchè è una 
buona norma quella di registrare un programma, terminata la 
digitazione, PRIMA di battere RUN! 

Con la seconda opzione, tutte lè volte che premete un tasto 
verrà simulato il lancio di un solo dado, ma sotto forma semi- 
grafica. ponendo cioè in reverse alcuni dei nove asterischi che 
compongono la faccia di un dado. 

Gli argomenti delie istruzioni Poke rappresentano le loca- 
zioni di schermo dei vari computer, vale a dire le celle di me- 
moria specifiche del video. 

100 REM LANCIO DI DUE DADI 

110 RE 11 PER C/16, PLUS/4, COMMODORE 64 

120 : 

130 REM MENU PRINCIPALE 

140 PR INTCHRS C 147 3 "SCEGLI : ":FRINT 

150 PR I NT "1 - LANCIO DI DUE DADI 5 ’ 

160 PRINT”E- LANCIO DI UN DADO” 

170 GQSUB 4B0 : 1 F AS-”1” THEN 220 
180 IF AS-”2" THEN 330 

130 BOTO 140: REM ESCLUSIONE ALTRI TAST 
I 

200 : 

210 REM PRIMA OPZIONE : LANCIO DI DUE D 
ADI 
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220 PR I NTCHRSC 181' ” FREM I UN TASTO PER I 
L LANCIO DEI DADI " : PR I NT 
230 GOSUB 4B0: REM ESAME TASTO PREMUTO 
240 GOSUB 300 ; PR I NT ” PR I MD DADO: "X: REM 
U I SUAL I ZZA PRIMA ESTRA2I0ML 
250 GQSLfE 300 : PR I NT "SECONDO DADO:’’X:RE 
M UI SUAL IZZA 5ECONOA ESTRAZIONE 
2S0 PR I NT : GOTO 220 : REM RICHIEDE NUDUQ 
LANCIO 

270 : X=I NT C 1+RNDC0 ) *63 : RETURN: REM DA U 
N nlNlMO-1 A UN MASS I MD-6 
280 : 

290 REM GENERAZIONE LANCIO CASUALE 
3O0 X-INTC 1+RNDC0) *6 ): RETURN: REM DA UN 
MINIMQ=1 A UN MASS I M0=6 

310 : 

320 REM SECONDA OPZIONE 
330 PPINTCHRSC147)”!- C-IS. PLUS/4”: PR 
1NT ”2- COMMODORE 64”: GOSUB 480 
340 PS-3072 : I F A$-”2” THEN PS-1024 
3S0 PRINTCHRSC147) : PR1NT : FRINÌ : PRIMI :P 
PINI: GOSUB 520 : GOSUB 300 : FRI NIX 
3E0 REM 1024 PRIMA LDCA2 1 ONE DI SCHERM 
0 PER COMMODORE 64 

370 REM 3072 PRIMA LOCAZIONE DI SCHERM 
D PER C-1G E PLUS/4 

360 1F X-l THEN POKE P5+41 , 170 : REM CA5 
□ DEL PUNTEGGI 0-1 

390 IF X-2 THEN POKE PS+40 . 170 : POKE PS 
+42, 170: REM CASO DEL PUNTE6GI0-2 
400 IF X-3 THEN POKE PS, 170: POKE PS+41 
,170: POKE PS+82, 170: REM CASD DEL P 
UNTEGG 10-3 

410 IF X-4 THEN POKE PS. 170: POKE PS+2. 

170 : POKE P5 + 80, 170: POKE PS+82, 170 
420 IF X=5 THEN POKE PS, 170: POKE PS+2, 
170: POKE PS+B0, 170: POKE PS+82, 170: 
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POKE PS+41 , 17 0 

430 IF X=S THEN POKE PS,170:FOK£ PS+8 , 
170 : POKE PS+90,170 

44B IF X“6 THEN POKE PS+B8 , 170 : POKE PS 
+40 , 170 : POKE PS+48,170 

450 BOSUB 400: BOTO 350: REM ESAME PRESS 
IONE TASTO E SUCCESS IUO MUOUO LANC 
IO 

4BG : 

470 REM ESAME TASTO PREMUTO 

480 EET A£:IF A$= ” ” THEN 480 

490 RETURN 

500 : 

510 REM DISEGNO DEI SEI ASTERISCHI MED 
I ANTE POKE 

580 POR 1-0 TG £ : POR J-0 IO 8 : POKE P5- 
I + J*40 , 45: NEXTJ. I : RETURN 

530 END 


7- Poker 

Questo gioco, che consente due scelte, stampa su video tutte 
le carte da Poker e verifica, graficamente, la casualità di estra- 
zione delle carte stesse. 

Coti la seconda opzione, invece, compaiono i nomi dei semi 
ed il valore di un gruppo di cinque carte alla volta. Anche in 
questo caso, ovviamente, il computer evita che compaiano due 
carte eguali per ciascuna estrazione. 

100 REM ESTRAZIONE DA UN MAZZO DI 58 C 
ARTE 
110 : 

180 DIM CA“:C4. 13, 8:« 

130 A$“ ” 15345 67B9DJQK" 

140 PRIMI ”L OLEARI POKER” : FRI NT : REM 5ELE 
21 ONE TIPO 01 COMPUTER ADOPERATO 
150 FRINÌ”!- COMMODORE S4” 
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150 PR I NT ”E— C/1E PLUS/4” 

170 SC=S03 : GOSUE 460: IF X$=”5" THEN SC 
“3031 

1B0 PRI NT": OLEARI POKER": PRIMI: REM SCEL 
TA FORMA DEL GIOCO 
130 PRINT”1- PRIMA UEPSIONE” 

500 PRIMI "2“ SECOLI ,UERS IONE” 

510 GQSUB 460; IF XS-"1" THEM 5E0 
650 IF X$= ”5 ” THEM 340 
530 GOTO 190 
540 : 

550 REM PRIMA UERSIOME 

560 PRINTCHRS: 1475AS: PRINTAS: PRINTAS: P 
RINTAS: PRINT 

570 PRIMI” AD OSMI PRESSIONE DI UM TAST 
0 CORRISPONDE L' ESTRAZIONE DI UNA 
CARTA” 

500 X = I NT C 1+RNDC 0 5 *13 5 : Y= INI C 1+RNDC05* 
45 

590 A=SC+V*40+X: IF PEEK C A 3 > 15B THEN 59 
0 

300 GOSUB 4S0 

310 POKE A, PEEKCA5 OR 158 : U=U+1 : I F U<S 
5 THEN 590 
350 END 

330 REM SECONDA UERSIOME 
340 FP INTCHRS 1 1475 
3S0 CLR :DIM CA*iC4.135 

360 SESC 1 5 “ "CUOR I ” : SES C 55= "QUADRI ” : SES 
C 33 -"FI ORI SES C4 5 - "PICCHE” 

370 DATA ASSO, DUE, TRE, QUATTRO, CINQUE ,S 
EI , SETTE, OTTO, NOUE, DIECI , JACK, DONN 
A, RE 

380 DIM CASC13):F0R 1=1 TO 13: READ CAS 
C I > : NEXT 

390 FOR J-l TO 5 

400 X-l : Y-13: GOSUB 450 : CA-A : REM E5TRAZ 
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IGNE CARTA 

4:10 X-ì : Y = 4: G05UB 450:SE=A:REM E5TRA2I 
□NE SENE 

4E0 IF GAY C SE , CAI = 1 THEN 400 
430 CA’iCSE, CA) = 1 : PR INTSES C5E > . CASCCA) : 
NEXT 

440 PR1NT: FRI NT "PREMI UH TASTO ” ; EDSUE 
460: BOTO 340 

450 A-X+lNTCRNDC0;i*¥? : RETURN 
460 GET X$:IF X£-"" THEN 460 
470 RETURN 
4B0 END 


8- Oroscopo Random 

Questo listato serve soltanto a prendere in giro i vostri amici 
dal momento che ignora completamente te risposte date alle 
varie domande e visualizza una risposta assolutamente 
casuale. 

In effetti non è completamente vero che ignora qualsiasi ri- 
sposta. Come potete notare (riga 140) ia variabile Y viene posta 
ad 1 se il nome della persona è "Paola". In seguito (riga 2 10) il 
programma salterà ad una riga ben precisa nel caso in cui Y 
sia eguale ad uno {e cioè se la persona che desidera l’oroscopo 
è proprio Paola). Ne consegue che il lettore, cambiando a pia- 
cere la riga 140 (oppure digitando altre righe analoghe) potrà 
far apparire il messaggio che desidera, magari... personalizza- 
to per ciascun amico che verrà invitato alla tastiera! 

100 REM OROSCOPO RANDOM 

110 REM COMMODORE 64, C/16, PLUS/4 

1E0 : 

130 INPUT "DIGITA IL TUO NOME" ; A$; IF A 

THEN 130 

140 IF A£= "PAOLA ” THEN Y-l : REM NOME CH 
E INTERESSA... 
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150 INPUT "DIGITA IL TUO MESE DI NASCI 
TA C1/12D" ; A$: X=UAL(AS!) 

1B0 IF X<1 OR X> 12 THEN 150: REM ESCLUD 
E MESI "IMPOSSIBILI" 

170 INPUT "DIGITA IL TUO ANNO 01 NASCI 
TA C 1S00/19B71 ” ; AS: X=UAU AS> 

ISO IP X< 1300 DE X> 1987 THEN 170: REM A 
CCETTA SOLO ANNO TRA 1300 E 1987 
190 INPUT "DIGITA IL TUO GIORNO DI NAS 
CITA” ; AS: X= INT CUALC ASl 1 
200 IF X<1 OR X> 31 THEN 190: REM ACCETT 
A SOLO GIORNO TRA 1 E 31 
210 IF Y“1 THEN 350 : REFI SALTA A ROUTIN 
E UOLUTA SOLO IN PRE5ENZA DI "PAOL 
A” 

220 : 

230 REM GENERA NUMERO RANDOM 
240 X” I NT C 1 + PND C0 3 *4 I : REM 4-NUMERD DI 
FRASI 

250 IF X<2 THEN 310: REM SALTA A ROUTIN 
E SPECIFICATA OA ESTRAZIONE CASUAL 
E 

2S0 IF X< 3 THEN 320 
270 IF X< 4 THEN 330 
280 GOTO 340 
290 : 

300 REM MESSAGGI 

310 PR 1 NT ”ARR IUERA ’ UN MESSAGGIO OA PR 
END E RE IN GRAN CDNSIDERA2I0NE " : END 

320 PR I NT "PRESTA LA MASSIMA ATTENZIONE 
ALLE FALSE AMICIZIE ” : END 
330 PR I NT "FREUEDO UNA SETTIMANA MERAUI 
GL I OSA PER GLI AFFARI": END 
343 PRINT”5FRUTTA QUESTO PERIODO: SI P 
PE5ENTAN0 MERA DIGLI OSE OCCASIONI”: 
END 
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350 PR INT ”U I CIMO A TE C ’ E ’ UNA PERSONA 
CHE TI ULiQL MOLTO BENE ” ; 

360 PR I NT "MA TU NON TE NE ACCORGI...”: 
END 


9“ Dadi truccati 

Questo programma rappresenta un metodo per alterare i ri- 
sultati dì una estrazione casuale. 

Sì noti tra l'attro, che la riga 220 e la 230 impongono il valore 
6 a ciascuno dei due dadi nei caso si prema il tasto “H" 

UT/ t* 

oppure K . 

Analogamente la pressione della barra spaziatrice, o di uno 
dei due tasti del cursore, stabilisce la modifica del mìnimo, del 
massimo o di entrami i limiti. In tal modo chi conosce il pro- 
gramma può. apportando tutte le modifiche che desidera, alte- 
rare a piacimento i risultati dell'estrazione. 

100 REM LANCIO DI DUE DADI 
110 REM TRUCCATI 
150 : 

130 PR INTCHRSC 1475CHRSC IBI ” L’USO DI D 
UESTO PROGRAMMA PER SCOPI ” 

140 PRINTCHRSC 10) “ILLECITI E’ PUNIBILE 
A NORMA DI LEGGE” : PR INT: PR INT 

150 : 

160 PRINTCHRSC IBI "PREMI UN TASTO PER I 
L LANCIO DEI DADI ” : PR I NT 
170 : 

180 REM ESAME TASTO PREMUTO 
1S0 GET AS : I F A$-"“ THEN 130 
500 : 

510 Z-l:Y-6 

550 IF AS=”H” AND U1=0 THEN Z“6:Y=6:U1 
“ 1 : REM TASTO H DA USARE UNA SOLA U 
QLTA 
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£30 I F A$= "K’ 1 AND U£=0 THEN Z=6:Y=S:U£ 
” 1 : REM TASTO K DA USARE UNA SOLA U 
□ LTA 

£40 IE A$=CHRSK3£j THEN Z=2:Y*5:REI1 BA 
ERA SPAZIATRICE 

£50 IF AS-CHRSC17) THEN Z=4:Y=6:REU CU 
RSORE IN SASSO 

£60 IF AS-CHRSC235 THEN Z“1:Y=3:REN CU 
RSORE A DESTRA 

£70 60SUB 3£0: PR1NT”PRINQ DADO : "X 
£B0 EOSUB 3£0: PRIMI "SECONDO DADO:"X 
£S0 PRINT : GOTO 160 
300 : 

310 REO GENERA NUMETRO RANDON CONPRESO 
TRA i E G 

3£0 X= I NT ( 2 + RNDC 0 j * C Y-Z + l 1 ) : RETURN 
330 END 


IO- Sequenza costante 


Esiste una particolare Torma de 11 istruzione RND che per- 
mette di generare sempre la stessa sequenza di numeri, anche 
se si spegne il computer, sì riaccende e si ricarica il 
programma. 

E' sufficiente "dichiarare” all'inizio un valore negativo ira le 
parentesi di RND (riga 200 e 270). In seguito, ad ogni RND{ ! ) 
(vedi riga 210 e 200), verrà riproposta la stessa sequenza deter- 
minata dal particolare valore negativo dichiarato all inizio. 

In pratica è possibile generare un'infinità di valori successivi 
casuali, ma tutti predeterminabili e legati ad un particolare va- 
lore negativo da tenere a mente. 

il programma dimostra quanto detto attraverso la visualiz- 
zazione della stessa sequenza di valori. Si noti che. con la pri- 
ma opzione. la possibilità di generare, con RND(O), lui valore 
realmente casuale non è impedita (parte finale di riga 210). 

La seconda opzione permette di gettare le basi di un vero e 
proprio programma-trulla basato sul gioco dei dadi. Sarà suf- 
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fidente imparare a memoria la sequenza dei lanci simulati per 
stabilire quando puntare somme consistenti. 

La generazione di sequenze ripetibili, perù, non è resa possi- 
bile per consentire trulle più o meno serie. In molti programmi 
di statistica, ad esempio, tale possibilità è preziosa' per verifica- 
re il comportamento di alcune procedure computerizzate. 


100 REri RIPETIZIONE STESSI NUMERI 
110 : 

150 PRINTCHRSC 147 3 "SCEGLI : ” : PRIMI 
130 PR I NT ” 1~ UER I FICA RIPETIZIONE NUME 
RI” 

140 PRIMI ”5- ESTRAZIONE DADI TRUCCATI” 

150 GOSUB 350: IF A£=’*l” THEN 190 

160 IF A$=”5" THEN 560 

170 GOTO 150: REM ESCLUDE ALTRI TASTI 

180 : 

130 PRINTCHRSC 147) REM CANCELLA SCHEF 
NO 

500 A-RNDC -1 3 : REM GENERA SENE 
510 FOR 1 = 1 IO 50 : PR I NTRNDC 1 1 : NEXT I : FR 
INTCHRSC1B3RNDC03 : REM GENERA SEDUE 
N2A 

550 PRINTCHRSC 173 "PREMI UN TASTD” 

530 GOSUB 350: PRINTCHRSC 19 J ; : GOTO 500: 

REM CHRSC 19 ) “TASTO HOME 
550 : 

550 REM ESTRAZIONE DADI TRUCCATI 
560 PRINT : PRINT”LA SEQUENZA DELLE ESTR 
AZIONI SARA 5 SEMPRE LA SEGUENTE:” 
570 A-RNDC -1 3 : REM GENERA SEME 
580 REM GENERA 50 LANCI CASUALI DI UN 
□ADO 

590 PRINT: FQR 1=1 TO 50 : PR INT1 + INTC RND 
( 13*63 ; : NEXT I : PRINT 

300 PRINT: PRINT "SE NON CI CREDI, PREND 
I NOTA DEI UALOR I ” 
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310 FRI NT "E. FAI RIPARTIRE IL PROGRAMMA 

li 

360 END 
330 t 

340 REH ESAME TASTO PREMUTO 
350 SET A$ ; I F AS- ”” THEN 3S0 
360 RETURN 
370 END 


11- Generatore dì compiti in classe 

Questo lungo programma, che consigliamo di studiare con 
attenzione, può esser utile sìa a studenti che ad insegnanti: 
permette di generare in modo casuale un certo numero di do- 
mande le cui risposte presuppongono Telaborazìonedi calcoli 
matematici. Naturalmente vengono memorizzate anche le ri- 
sposte esatte per facilitare !a correttezza delle operazioni 
effettuate. 

Pur avendo un valore molto limitato da un punto di vista di- 
dattico, questo programma può essere usato con successo nel 
caso in cui un insegnante vogliaverificare rapidamente il livel- 
lo di preparazione raggiunto dalla classe su un gruppo deter- 
minato di argomenti. 

100 REM GENERATORE DI COMPITI IN CLASS 
E 

110 REM COMMODORE 64, C-16, PLUS/4 
160 : 

130 PRINTCHRSt 147} "OUTPUT SU UIDED □ S 
U STAMPANTE CU/S} " 

140 REM SCELTA PERIFERICA: DN*3:UIDE0, 

□ N-4 : STAMPANTE 

150 GUSUB 3S0 : □N“3 : IF THEN 0N”4 

160 : 

170 REM RICHIESTA TIPO DI ESERCIZI OA 
GENERARE 

1B0 PRINTCHRSC147} ”1- DIUÌSIUNI CS/NI " 
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: GDSUB 330 : I F X$="S" THEN NOCIVI 
13© PRINT "2- PESO SPEC.CS/NV:BOSUB 39 
©:IF XS“”S” THEN NCC2V1 
200 PR I NT "3“ TERZO LAT0C5/N ? ” : GDSUB 39 
0 : I F XS=”S” THEN NtC3Vl 
210 : 

220 REM RICHIESTA NUMERO DI COMPITI Dì 
UERSI 

230 PRINTCHR5SC 147} ; : INPUT “QUANTI COMP 
I T I ; NC 

290 IF NOCIVI THEN DIM DUCE, NC} : REM 
DIMENSIONA LE MATRICI NECESSARIE 
2S0 IF NCC2V1 THEN DIM PSC5,NC1 
260 IF NCC3V1 THEN DIM TLC5.NC3 
270 : 

2B0 REM INIZIO U I SU AL I ZZ AZ I ONE 

290 OPEN 1 , DN , 7 : FOR 1-1 TO NC 

300 FRINITI , ” 


310 FRINIttl , “COMPITO N . ”1 : FRI NT# 1 , ” 


320 PRINT#1 : GDSUB 910; PRINT# 1 : NEXT 
330 IF NOCIVI THEN PRINT#1 : PRI NT#1 , “D 
I U I SON I ” : FOR 1 = 1 TO NC : PR I NT#1 , I ; □ 
UC2, 1 1 : NEXT 

340 IF NCC2V1 THEN PR INT#1 : PRINT#1 , ”P 
ESO SPEC . ” : FOR 1=1 TD NC:PRINT#1,I 
; PS C 5 , 1.1; NEXT 

350 IF NCC3V1 THEN PRINTttl : PRINT#1 , ”T 
ERZO LATO”: FOR 1=1 TO NC:PRINT#1,I 
; TLC2, 1 1 : NEXT 
360 PRINTttl : CLOSE 1 : END 
370 : 

3B0 REM ESAME TASTO PREMUTO 
3S0 GET X£:IF X$=“” THEN 390 
400 RETURN 

410 IF NOCIVI THEN GOSUB 470: REM ESEC 
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UZIONE ROUTINE N.l CSE RICHIESTA) 
420 IF NOCE 5-1 THEN GOSUB 5B0 : REM ESEC 
UZ I ONE ROUTINE N.2 CSE RICHIESTA). 

ECCETERA 

430 IF NCC33-1 THEN GQSUE 740 
440 RETURN 
450 ; 

4B0 REM DIVISIONI 

470 PRINT#1, "ESEGUIRE LA DIUISIONE : " ; 
4B0 A-300: X=100000: GOSUB 350 : DUC0. I 3-Y 
/100: PRINTS1 , DUC0, I 3 ; : REM DIUIOEND 
□ 

430 A-0: X-10: GOSUB 920 : DU CI . I 3- INTC C Y/ 
73*1003/100: REM DIUISDRE 
500 REM ESCLUSIONE CASI BANALI 
510 DUCI, I )“ I NTC C Y/7>*100) /100 : IF DUCI 
,15-0 OR DUCI, 13-1 OR DUCI, 13-0.1 
THEN 430 
520 PRINTttl, 

530 IF DUCI, I XI THEN PRINT#1 . ”0” ; 

540 PRlNTttl , DUCI , I 3 

550 DUCE , I 3-DUC0, I3/DUC 1 , I 3 : PRINT#1 : RE 
TURN 
550 : 

570 REM PESO SPECIFICO 

590 PRINTttl :FRINT#1, "UNA TAUOLA DI LEG 
NO MISURA” : PRINTttl , ”CI1 : ” ; 

590 REM 0, I -PRIMO LATO. 1,1 -SECONDO LA 
IO. 2, I=T£RZO LATO. 3, I-UOLUME 
600 REM 4,1 -PESO. 5.1 -PESO SPECIFICO 
610 A-10: X=20: GOSUB 350: PRINTttl , Y ; : PSC 
0, I 3-Y: PRINTttl , " CM : ” ; 

620 A=20: X=S0; GOSUE 320 : PR I NT#1 , Y ; : PSC 
1 , I3-Y: PRINTffl . ’* CM:”; 

630 A-l .5: X=5: GOSUB 320 : PR I NTttl , Y ; ; PSC 
2, I 3-Y 

640 PSC 3. I ) = PSC0 t I )*PSC I, I XPSC2, I) 
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650 PRINTttl," E PESA GRAMMI " ; 

660 A“4 : X-10: GOSUB 320 

670 PS ( 4 f I ) = I NT C PS 0,1 ) * Y/7 ) 

6B0 IF PSC4, ID/PSC3, I)”l DR P5C4. 11/PS 
C3,1)>1 THEN 660 
630 PRINTttl , FSC 4 , I ) 

700 PRINT#1 , "QUALE E J IL SUO PESO SPEC 
IFICO MISURATO IN KG/M3? ” : PRlNTttl 
710 PSCS, I >-1000*PSC4, I)/PS(3,I): RETUR 
N 

720 : 

730 REIÌ TERZO LATO 

740 PR I NT#1 , "UNA TAUOLA DI LEGNO MISUR 
A" 

750 REM 0, IMPRIMO LATO. 1,1-SECONDD L 
ATO. 2,1-TERZO LATO 
760 PR I NT#1 , ”CM; ”• 

770 A«10:X=20: GOSUB 920 : PR I NT#Ì , Y ; : TLC 
0, I)-Y 

700 PR I NT#1 , ” • CM. : ” ; 

790 A=20 ; X-60 : GOSUB 920 : PR I NT# 1 . Y ; : TL C 
1 , I )“Y 

600 PRINT#1 , "DETERMINARE LA LUNGHEZZA 
DEL TERZO LATO SAPENDO CHE” 

610 A»=l .5: X=5- GOSUB 920 : TLC 2 , I ) -Y 
820 TLC3 , D-TLC0, IXTLC1. I)*TLC5, I) 

B30 A"0 : X-10 : GOSUB 920; IF Y-0 THEN B30 
840 TLC4, D-INTCTLC3, I)*Y/7) 

850 TLC 5, 1 )-INTC1000*TLC4, I j /TLC 3, 1)1 ; 

IF TL C 5 , I )> 800 THEN B30 
B60 IF TLC5, 1X400 THEN B30 
B70 PRINTttl, "PESA G . : "TL C4 , I > ; 

880 PR I NT#1 , "ED IL PS UALE KG/M3 ” ; 

B90 PRINT81 , TLC 5, I ) : RETURN 
300 : 

S10 REM GENERAZIONE NUMERO CASUALE 
320 Y-A+INTCRNDC0XX) : RETURN 
330 END 


Commodore Computer Club XXXI 



Scheda per i principianti 


E’ facile perdersi d'animo dopo i primi, inevitabili insuccessi 
con un computer. 

Riportiamo qui di seguito il numero dei fascicoli di Commo- 
dore Computer Club in cui sono apparsi artìcoli di un certo in- 
teresse per chi si avvicina per la prima volta ad un calcolatore. 


N.22: Come realizzare un menu 

N.23: Microgìoco da addestramento 

N.24: Come realizzare uno spreadsheet 

N.25: Variazioni demografiche 

N.26: Spaghetti Basic 

N.27: Tempo di saldi 

N.27; La merce più economica 

N.27: Impariamo a sbagliare 

N.27: Utilizzo del Joystick 

N.28: Il tuo primo programma 

N.28: La tua prima volta con la grafica del C/64 

N.29: 20 domande sul linguaggio macchina 

N.29: Costruisci un labirinto 

N.30: Tutti i caratteri del C/64 

N.31: E non indurci in Syntax Error 

N.32: Gli errori dovuti alia manipolazione delle stringhe 

N.34: La programmazione modulare (a) 

N.35: La programmazione modulare (b) 

N.36: Intelligenti deduzioni artificiali 

Per procurarsi ì fascicoli arretrati leggere le modalità riporta- 
te in altra parte della rivista. 



